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^SECTION 

SiPAGE 1 

1. INTRODUCTION 

THIS MANUAL DESCRIBES THE PROGRAMMING LANGUAGE SNOB0L3* AS 
IMPLEMENTED ON THE BURROUGHS B5500 aT THE UNIVERSITY OF WISCONSIN 
CMADIsON) by JOHN M. CHAMBERS^ wUH MuCH HELP IN IN THE DESIGN AND 
INITIAL CODING STAGES BY ^ULLIaM KRUEGER* AND SOME HELP IN WRITING 
THE COMPILER BY DAViD WlLSON. 

THE VERSION OF SN060L3 DESCRIBED HERE IS BASjCALLY IDENTICAL 
WITH THE LANGUAGE DEVELOPED AT BELL LABS, WITH THE OBVIOUS DIFFERENCES 
OF CHARACTER SET AND I/O FACILITIES, (THERE IS ALSO A SLIGHT PROBLEM 
WITH DIVISION' CAUSLD BY THE FACT THAT THE B5500 HARDWARE ROUnDS 
QUOTIENTS* WHILE M05T OTHER MACHINES TRUNCATE* SEE THE SECTION 
ON ARITHMETIC.) THERE ARE* AS USUAL* A NUMBER OF "EXTENSIONS'S 
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109000 
110000 
UIOOO 
112000 

11 3000 
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115000 
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120000 
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12 3000 
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RINSIC FUNCTIONS, THE BASIC SNQB0L3 FUNCTIONS 

OTHER SYSTEMS^ BUT THOSE WHOSE ACTIONS ARE MACHINE 
EN DIFFERENT, THERE ARE A NUMBER OF NEW FUNCTIONS 
PECULIARITIES OF THE B5500 OPERATING SYSTEM. 
ROGRAMS WRITTEN ON OTHER MACHINES CAN BE RUN ON 
LY MINOR CHANGES IN THE I/O* MOST OF WHICH CAN BE 
LER ITSELF. 

SEFUL FACILITY OF THE B5500 IS THE AVAILABILITY OF 
DEVICES, NATURALLY* THIS IS AVAILABLE TO SNOBOL 
MANNER* AND A SIMPLE* VERY USEFgL INTERACTIVE 
BEEN SUPPLIED FOR TELETYPE USERS. 
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THERE ARE THO TYPES OF CONTROL CaRDS RELEVANT FOR SNQbOL JObS-" 



THOSE THAT GIVE INFORMATION TO THE 
CONTROL PROGRAM"* OH "MCP")* WHICH 
THQSE THAT GIVE INFORMATION TO THE 
A MINUS SIGN ("-"), 



OPERATING SYSTEM (THE "MASTER 
START WITH A QUESTION MAKK; ANQ 
SNOBOL COMPILER* WHICH START WITH 



2.1. MCP CONTROL CARDS. 

AT THE START qF A DECK gF CARDS FOR BATCH JuBS* QR TYPED TO 
INITIATE, A TELETYPE JOB* THE USER NEEDS A SET OF MCP CONTROL CARDS 
FO^ BATCH JOBS. THESE aRE SEPARATE CaRUS* EACH STARTING WITH a 



Question mark ("Illegal character"), 
set op control cards is preceded by a 

THE CARDS ARE SEPARATED BY SEmICOlOnS 
LAST CONTROL CARO, 

THE FIRST Two CAHDS IN A BATCH JQB SHOULD BE: 

? USER <PKOJi(/> / <USer#> 
? EXECUTE SNOBOL/SNOBOL 



FOR TELETYPE JOBS* THE ENTIRE 
PAIR OF QUESTION MARKS* AND 
("i"), WITH AN ARROW AFTER THE 
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THE FIi5?3T CARD IDENTIFIES THE uSER TO THE MCP* 
TO INITIATE SNOBOL. ThE PROGRAM AND DATA DECK 

? DATA <NAME> 



THE SECOND TELLS IT 
MUST BE PRECEDED BY 



WHICH NAMES THE InPuT DECK. BETWEEN THE EXECUTE CARD AND THE DATA 

CARD CAN COME ANY NUMBER OF OTHER CONTROL CARDS* SOME OF THE CARDS 

THAT ARE USEFUL fO SNQBOL USERS ARE DESCRIBED BELOW, ONE OF THE 
OTHFIR CONTRIJL CA^OS MuST BE THE FOLLOWING: 



? FILE PROGRAM s <NAME> 

WHERE <MAME> IS THE SAME AS THE <NAME> ON THE DATA CARD. 
ASSIGNS THE CARD DECK AS THE INpUT FILE To THE CQMpILER. 
MCP CONTROL CAROS THAT CAN BE USED ARE S 



THIS 

SqME OTHER 



PROCESS = <1NTEGER> 
THIS PUTS A CPU TIME LlMjT TO THE ENTIRE RUN 
MINUTES. IF THIS LiMiT IS EXCEEDED* THE JOB 
BY THE MCP. THE DEFAULT CPU TIME LIMIT IS 2 

10 = <INTbGER> 
THIS PUTS A TIME LIMIT OF <INTEGER> MINUTES TO THE I/O 
THAT CAN BE USED UY THE RUN. THE DEFAULT I/O LIMIT IS 



Op <INTEGER> 

WILL BE TERMINATED 

MINUTES, 



TIME 



# 






<i * 



m 
m 



> 






• 
m 



166000 
167000 
163000 
1 6 9000 
170000 

171000 
172000 
173000 
174000 
175000 

176000 
177000 

178000 

i -> nr\r\r\ 

1«!0000 
IBIOOO 
li^.2000 
1^3000 
I'^AOOO 
IHbOOO 
186000 

1H7000 
186000 
IfS'i'OOO 
190000 
191000 
192000 
103000 

19''-i000 
195000 

196000 
197000 

198000 
199000 
200000 
201000 
202000 
203000 
204000 
2o5o0 
206000 
207000 
208000 
209000 
210000 
211000 

2 3 2000 
213000 
21-^000 
21500 
216000 
217000 
218000 
219000 
220000 
221000 
222000 



5 MINUTLS. 

? STACK = <INTEQEH> 

THIS ASSIGNS A STACK fJF <InTEGER> WORDS TO THE RUN. THIS 
IS ONLY NECESSAFU IF THE PROGRAM REACHES GREAT DEPTHS OF 
FUNCTIUN CALLSi- CAUSING STaCK QVERFlUWS, THE DEFAULT STACK 
SIZE I.S 512. 

? COHf = <INT£GER> 

THIS ASSIGNS A CORE ESTIMATE OF <INTEGER> WORDs TO THE 
RUN. THE JOB "ILL BE STaRTED WHEN THIS MaNY WQRdS BECOME 
AVAILABLE. THE DEFAULT CURE ESTIMATE IS lOOOO, 

A BATCH JOB CAN EXECUTE A SNQBGl PROGRAM FROM A DISK FIlE IF THE 
DATA CARD Is QMTttED AnD tHE PRQGram CARD IS CHANGED TO: 

? FILE. PROGRAM = <NAME1 >/<NAME2> SERIAL 

WHERE <rjAMLl>/<NAME2> Is THE NAME OF THE DISK FILE. IN GENERAL* 
THE INPUT FILE NAMED "PROGRAM" cAN BE ASSIqNEQ TO ANY FILE WHIcH 

ca\> be read with 10,30 blocking. 

a\cther control card which is occasionally useful* 
Same results can be acheived with the snobol function 
the file card* which has the general form: 
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THOUGH THE 
flLLO* IS 



? FILE <NAME> = <NAME 1 >/<N AME2> <UNIT> 

WHERE <NAME> Is THE "INTERNAL" NAME OF jHE FILE* AND <NaME 1>/<NAMEH> 
IS THE "EXTERNAL" NAME Of ThE FILE ACTUALLY BEING USED, fOR SNOBOL 
JOBS, <NAME> SHOULD BE THE I/O STRING NAME, WITH THE EXCEPTION 
OF THE STRING READ* WHICH jHE MCP THINKS IS CALLED "PROGRAM", 
<UKiIT> INDICATES ^^HaT SORT UF I/O DEVICE IS TQ BE USED, SQmE 
POSSIBLE VALUES FOR <UNIT> ARE! 

SERIAL MEANS SERIAL DISK FILE 

PRINT MEANS LINE PRINTER FILE--NO BACK-UP 

PRINT OP BACK UP MEaNS LINE PRINTER OR PRINTER BACK-UP 

TAPE MEANS MAGfxiETIC TAPE 
FOR INPUT FiLES/ iT iS ONLY NECESSARY TQ DiSTiNGUlSH DiSK FjLES 
FROM NOn-DISk FILES. OF THE STANDARD SnOBOl FIlES* NEWDISK IS 
ASSUHEO TO HE A DISK FILE UNLESS DECLARED OTHERWISE; ALL OTHERS 
ARE NON-DISK U^JLESS THE USER SPECIFICALLY ASKS FqR DISK, 
SOME EXAMPLES OF FILE CARDS ARE: 



? FILE CARD = PALPH/6RK SERIAL 

? FILE PROGRAM s MlX/PhLP 

? FIlE PRINT c P PRINT OR BACK 

? FILE PRINT = PHNT PRINT 

? FILE NEWDISK = ART/BEVl 



UP 



NOTE THaT THE FILE 

STRING IS ASSIGNED 

It IS NECESSARY TO 

NOTE ESPECIALLY 



CARD ONLY APPLIES TO THE 
TO, TO RE-ASSIGN AN I/O 
USE'THE SNObOL FUNCTIONS 
THAT TO ASSIGN THE InPuT 



(DISK FILE) 

(NON-DISK* ASSIGNS READ) 

(GOES TO PRINTER IF IT CAN) 

(LP* NO BACK-UP) 

(GOES TO DISK) 

FIRST FILE IHAT AN 1/0 
STRING TO A SECOND FILE* 
CLOSEC) AND FILLO. 
FILE READ C^HICH CAN 



m 



ONLY BE DONE WITH TtLETYPE JOBS* SINCE IT IS 
FILE AUTOMATICALLY FOR BATCH JOBS)* THE CARD 
"? FILE PRlJGRAM", not WITH "? FILE READ". 



%CP 30 



ASSIGNED TO 
USED STARTS 



THE PROGRAM 

WITH 
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^23000 
??4000 
2^5000 

225000 
22 9000 
23000C 
2 31000 
232000 
233000 
23A00O 
235000 

^ "^ A r> r\ r^ 

237000 

. 23fl.00,0. 

239000 

240000 

2^aooo 

2^2000 
243000 

244000 
245000 
2/J6000 
247000 
248000 
249000 
250000 
251000 
252000 
253000 
2*^4000 
255000 
256000 
257000 

258000 
259000 
"2 6 0000 
261000 
262000 
263000 
26^000 
265000 
266000 
267000 
266000 
269000 
270000 
271000 
272000 
273000 
274000 
275000 
276000 
277000 
278000 
279000 



so'-'E E)(AMplf:s of batch jubs: 

TO RUN A SIMPLE BATCH JOB USING A CARD DECK* THE FOLLOWING MIGHT 
BE USEP: 

? USER 1234/5678 
? EXECUTE SNCBCL/SMOBOL 
? FILE PROGRAM = AjONES 
? PROCESS = 3 
.?. 10. = 7 
? DATA AJONES 

PROGRAM DECK 



• 



END 



DATA DECK 



To RUN A SNiOeOL PROGRAM FROM THE DISK FILE TMIllR/SDCk' 

? USER 9676/5432 

? EXECUTE SNOBOL/SNOBOL 

? FILE PROGRAM = TMJLLR/SDCK SERIAL 

? PROCESS = 5 

? lO = 10 

? CORE = 18000 



*CP 25 

2,2, SNOBOL CONTROL CARDS. 

VARIOUS ACTIOr^S U-F JhZ SNOBOL COMPILER ARE CDNTRDLED BV SNOBOL 
CONTROL CARDS/ wHICK ARE ANY CARDS wiTH A "-" IN COLUMN i. IF SUCh 
A CARD IS NOT A VAlID CGNTROL CARD* A DIAGNOSTIC MESSAGE WIlL BE 
PRINTED, AND THE CARD wiLL BE IGNORED» THE CONTROL CARDS THAT ARE 
CURRENTLY RECOGNIZED AREJ 



%C^ 4 

-LIST <INTEGER> 

THIS INITIATES LISTING OF THE PROGRAM ON THE LINE PRINTER FILE, 
PRINT* THERE WILL BE <InTEGER> BLANK LINES BETWEEN EACH lINE 
OF THE LISTING. IF <INTEGER> IS OMITTED* (ZERO) IS ASSUMED, 
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%CP 2 
-UNLIST 
THIS 



*CP 3 



CARD STOPS THE LISTING^ 



a^ 
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280000 
261000 
282000 
283000 
284000 
285000 
286000 
287000 
288000 
289000 
290000 
291000 
292000 
293000 
29^000 
295000 
296000 
297000 
298000 
299000 
300000 

301000 
302000 
303000 

3caooo 

305000 
306000 
307000 
308000 
309000 
310000 
311000 

312000 
313000 
31^000 
315000 
316000 
317000 
31.8000 
319000 
320000 
321000 
322000 
323000 

32^000 
325000 
3P6O00 
3?rQQ0 
328000 
329000 
330000 
331000 
332000 
333000 
334000 
335000 
3 36000 



"this causes ACL CONTROL CARDS 
ITSELF IS NOT BEING LISTED. 



TO BE LISTED* EVEN IF THE PROqRAM 



«CP 2 
-EJECT 
THIS 



EJECTS THE LISTING ID THE TOP OF THE NEXT PAGE 



^CP 3 



- f r> \,» u. 



<TMTrQrp> 
THIS PRODUCES 



<l!NTEGER> BLANK LINES IN THE LISTING. 



%CP 6 

-WIDTH <INTEGER> 

THIS SAYS THAT THE 
CHARACTERS OF EACH 
NOT APPLY TO iNpUT 
THAT 72 CHARACTERS 
MAXIMUM CARD ^IDTH 
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COMPILER IS TO USE THE FIRST <INTEGER> 
CARD READ FROM A CARD-IMAGE FILE. IT DOES 
FHQM a teletype. THE CCMplLER ASbUMES 
ARE TO BE USED IF THIS CARD ISNT USED. THE 
IS 80. 



%CP 
-26 



THIS SAYS THAT ThE DECK WAS 
THE IBM/CDC CHARACTER SET. 
BE 
OF 



PUNCHED ON AN 026 KEYPUNCH* 
A CHaRaCTER-SET TRANSLATION 



WITH 
WILL 
MADE BY THE COMPILER BEFORE CDMPIlING EACH CARD. THE HANDLING 
''SPECIAL CHARACTERS" NOT ON THE 026 IS NOT VERY WELL-DEFINED, 



THIS CARD CAN ALSO BE WRITTEN "-026" IF DESIRED, 



%CP 9 

-3600 

THIS CAUSES TmE SAME 
THE I/O STRING NAMES 
AT THE UNIVERSITY OF 






CONVERSION AS ThE -26 CARD* AND ALSO TRANSLATES 
USED ON THE CDC3600 SNDBOl AS IMPLEMENTED 
i^ISCONSIN, IN PARTICULAR* THE FOLLOWING 



SUBSTITUTIONS ARE MADE? 



"SYSFiT" BECOMES 


"READ " 


"SYSLOK" BECOMES 


"LOOK " 


"SYSPPT" BEC0*^ES 


"PUNCH " 



%CP 2 

-B5500 
THIS 



CANCELS ANY PREVIOUS -26 OR -36oO CARD, 



• 



m 
m 

m 
m 
m 



# 

m 

m 



3?/'000 

3:-!eooo 

339000 
3^iOOOO 
3iH000 
3';i2000 
3A3000 
344000 
345000 
346000 

346000 
34^000 

ry r- /" r' ,»s y* 

J -3 U V V V 

3bl000 
3ri2000 
353000 
354000 
3b5000 
356000 
357000 
Sb^OOO 
35^000 
36C000 
361000 
362000 
363000 
364000 
36b000 
366000 
367000 
368000 
369000 
370000 
371000 
372000 
31^3000 
374000 
375000 
376000 
3//'000 
378000 
379000 
380000 
331000 
382000 
383000 
3^4000 
3y5000 
386000 
387000 
3Pfi00O 
3B9000 
390000 
391000 
392000 
393000 



%CP 5 

-PUNCH 

THIS CAUSES THE COMPILER TO PUNCH OUT THE PROGRAM DECK ON THE 
CARP PUNCH, STARTING WITH THE NEXT CARD, THIS CAN BE USED WITH 
A -26 OR -3600 CARQ TO PRODUCE A B55G0 DECK FROM A SNOBOU PROGRAM 
WRITTEN FOR ANOTHER KACHINE. 



IT IS 
MESSAGES 



%CP 8 

-INFORM 

THIS TURNS ON A ^^ET OF SYSTEM INFORMATIVE DIAGNOSTICS, 
EQUIVALENT TO THE RUN-TIME USE OF MODEC'INFORM" ) . SOME 

LABELS REFERENCED THAT ARE UNDEFINED CAT THE END OF THE LISTING)/ 
INACCESSIBLE INSTRUCTIONS; USING -DEFINE TU RE-DEFINE A PREVIOUSLY 
DEFINED FUNCriON; USING NON-NUMERiC LITERALS IN ARITHMETIC/ 
AND OTHER THINGS THAT MAY BE ADDED IN THE FUTURE. 



%ZP 2 
-SiLEKCf 

THIS CANCELS 



ANY PREVIOUS -INFORM CARD, 



• 
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%CP 4 

-WAIT <INTEGER> 

THIS SETS THE WAITING TIME FUR TeLeTYPe I/O TO <INTEGeR> 
SECONDS, IT IS EQUIVALENT TO USInG WAIT C "< I NTEGER>" 3 AT 

RUN TIME, 



%CP 12 

-LIMIT <QUANTITY> <INTEGER> 

THIS SETS A PROGHAM LIMIT TO THE THING NAMED BY <QUANTITY> 
TO THE VALUE Of <INTlGeR>. IF THIS LIMIT IS EXCEEDED' THE 
PROGRAM WILL BE TERMINATED ABNORMALLY, SOME POSSIBLE VALUES 
FCR <QUAnTITY> Ai^E: 

RULES SETS A LIMIT TO THE NUMBER OF RULES THAT CAN BE 

EXECUTED. 
PROCESS SETS A TIME LIMIT CiN SECONDS) TO THE PROGRAMS 

CPU TIME, 
IL, SETS A TIME LIMIT (IN SECONDS) TO THE PROGRAMS 

I/O TIME. 



• 



%CP 9 
-SUE 



THIS 



<INTEGER> 

TELLS THE COMPILER HOW MANY INSTRUCTIONS TO EXPECT IN THE 
PROGRAM. IT NEED NO! BE USED^ IT ALLOWS THE COMPILER TO SET 
UP ITS TABLES TO TRY TO MINIMIZE THE TIME FOR BOTH COMPILATION 
AND FXECUTlON. THE VALUE OF <INTEGER> SHOULD BE ABOUT (SAY* 



■ 
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\m 



304000 
395000 
396000 
3')7000 

398000 
309000 
AOOOOO 
401000 

402000 
40 3000 

^04000 
40b000 
406000 
407000 
408000 

409000 
410000 

411000 
41 2000 

413000 
414000 
415000 
ai 6000 
417000 
418000 
419000 

420000 
421000 
4P2000 
4? 3000 
424000 
4 '.1 5 
426000 

427000 
4P8000 

4 2 9000 
470000 

431000 
432000 
433000 
434000 
435000 

436000 
437000 

438000 
439000 

4/10000 
441000 
4 4 2000 
443000 
4^4000 
445000 
4 /| 60 00 

447000 
448000 
449000 
450000 



WITHIN 25 OF) Th£. NUMBER DP INSTRUCTIONS IN THE PHOGRAM. THIS CARD 
CAN CAUSE SAVINGS OF 5-10% IN LARGE PROGRAMS, IF USED* A -SIZE 
CARD MUST APPEAR BEFORE ALL PROGRAM MATERIAL (INCLUDING -SET* 
-DEFINE/ -COMPILE* AND -LOAD CARDS), 



i 
• 



%CP 21 

^SET <IDENTIFIER> <LITERALS> 

THIS CARD ASSIGNS AN INITIAL VALUE Tq THE 
<inENTlFIER>. TiiE VALUE IS DETERMINED BY 
FDR ALL LITERALS* AND CONCATENATING THEM. 



VARIABLE NAMED 
SCANNING THE CARD 
ANYTHING BETWEEN 



THE LITERALS U CREATED AS COMMENT. THUS* A LONG STRING CAN 



Cf t- aunwrhi IIP UrTwrt-M ^rWrOAl 
,, t. . ■ . > w n J, . » «j . ^' L t ■ ■ c c. "< •" fc. » fc. ' ■ " >- 

EXAMPLES OF -SET CARDS ARES 



rABriC T ,M AMV f. H M \/ r- M T r- M T 1,1 (V V 






m 

m 
m 

m 



-SET 

-SET 
-SET 
-SET 



-SET 



ALPHABET "ABCDEFGHlJKLMNOPQRSTUVi^XYZ" 

CARONAME "GEDRGE/PQSDECK" 

SUITS "HE ARTS* CLUBS* S PAULS* DIAMONDS" 

CITIES "NEW YORK*N.Y,/ChICAGO*ILL,/BOSTDN*MASS-/" 
"SAN FRANC I Sea* CALIF, /DENVER* COL. /CLEVELAND* OHIO/" 
"NEW URlEANS*LA./LOs ANGELES*CALIF , /ATLANTA* GA, /" 

"PHOENIX* ARiZ, /PITTSBURG' PENN, /SEATTLE' WASH,/" 
DPS " + - X / * " 



THE NiAjUR REASON FOR USING A -SET CARD IS THAT IT SAVES THE 

SPACE THAT WfUJLD BE REQUIRED FOR THE EQUIVALENT RUN-TIME ASSIGNMENT 

STATEMENT, THIS CAN BE IMrQrTaNT WH£N THE SMALL MEMORY SIZE 

OF THE B5500 IS TAKEN INTO ACCOUNT. 



*CP 34 
-DEFINE 
THIS 

A CA 

THE 

V.'ILL 

CARD 

AN I 

TURN 

MAKE 
FUNC 
WITH 



<LIT1> * <LIT2> ' <LIT3> 

SETS Up A FUNCTION DURInG CQMPIl,ATION IN THE SAmE WAY THAT 
LL rjF DEFINEC<LIT1>.<LIT2>*<LIT3>) WOULD DURING EXECUTION, 
PA^^aMETeRS must all be single LITERALS (NO CONCATENATION 

BE DONE BY THE COMPILER)* LIKE THE "SET CARD* A -DEFINE 

SAVES THE SPACE AND EXTRA TIME THAT WOULD BE REQUIRED FOR 
nSTRUCTION 10 CREATE THE FUNCTION AT RUN TIME. IT USUALLY 
S OUT EASIER TO USE ThE -DEFlNE CARD* ThOUGh* SINCE ThiS 
S IT POSSIBLE Tu PLACE THE DEFINITION TOGETHER WITH THE 
TlON CODE WllHOUl THE NEED TO LINK [HE DEFINITIONS TOGETHER 

GO-TOS, THE PARAMETERS HAVE THE FOLLOWING MEANINGS: 



• 



<LIT1> IS THE "FUNCTION PROTOTYPE"* OF THE FORM! 
<FCT>( <PARAMS> ) 

WHERE <FCT> IS THE FUNCTION NAME* AND <PARAMS> IS A 
LIST OF FORMAL PARAMETERS* SEPARATED BY COMMAS, 

<LIT2> CONTAINS A LABEL* WHICH IS THE ENTRY POINT OF 

THE FUNCTION. If <LIT2> IS MISSJNG (I.E.* THE COMMAS 
HAVE NO LITERAL BETWEEN THEM)* THEN THE ENTRY POINT IS 
TAKEN TO BE SPELLED THE SAME AS <FCT>, 

<LlT3> CONTAINS A LIST OF LOCAL VARIABLES--A LIST OF 
IDENTIFIERS* SEPARATED BY COMMAS. 



• 



w 






m 



m 
m 



^51000 
452000 
a '3 3000 

-^'■jaooo 

45^000 
4S6O00 
457000 
458000 
459000 
460000 

461000 
462000 
46:^000 
46 4 000 
46b000 
466000 
467000 
468000 
469000 
4 70000 
471000 

4 72000 
473000 
4 7 4000 
475000 
476000 
477000 
478000 

4 79(300 
4B0O00 
481000 
432000 
483000 
484000 
435000 

486000 
467000 
488000 
489000 
4 9 0000 
491000 
492000 

493000 
494000 

^9^000 

496000 

4 9 7000" 

493000 

499000 

500000 

501000 

502000 
503000 
504000 
505000 
506000 
507000 






TCP FURTHER I NFDRMAT ION> SEt StCTIONlj 3,2 (FUNCTION CALLS) AND 9 
CINTrINJjIC functions — DEFINEO). some examples of -define CARDS: 

-DEFINE "HCAl^ A2)"i>"N'l'%"V*XY> ALPh" 

-DFFIME "MAXCA^B)" 

-DEFINE "HINCMIN^X)" 

-DEFINE "FCTC )",,"X'' 

-DEFINE "MRGE(L)"^"MR&ENTRY'S"L1*L2*L3" 

-nEFlNEC"r,LORCHCA.B*C,D^E*F,G*H,I)","GLQRK'S"J*K'L'M*N*0#P'') 



Aft' ^ 

-DE6UG 

THjS TURNS ON "DEBUG MODE" (SEE 
CAUSES THE JOB TO RE SUSPEnDLO 
EXECUTED (IF THERE IS A TELETYPE 



SECTION 11,2) DURING COMPILATION* AND 
JUST BEFORE THE FIRST INSTRUCTION IS 
ATTACHED), 



'«CP 42 

-COMPILE <NAME1>/<NAME2> 

THIS CARD CAUSES THE COMPILER TO COMPILE THE DISK Flt-E NAMED 
<NAME1>/<NAME2> INTO THE PROGRAM AT THE POINT WHERE THE 
CARD IS FOUND, THE COMPILER ^ILL READ EVERYTHING IN THE FILE 
UP TO AN END CARD OR THE END-QF-FILE* AND THEN RETURN TO THE 
IJRIGINAL FILE (OR TELETYPE). IF AN END CARD IS FOUND* IT IS 
SEARCHED FOR A LaBELJ IF ONE IS FOUND* If BECOMES THE PROGRAM 
ENTRY POINT (UNLESS A LATER END CARD CHANGES IT). IF THE FILE 
NAMED Is NOT ON THE DISK* A DIAGNOSTIC WiLL BE PRINTED AiviD THE 
CARD WILL BE IgNCREO, ANY CARD-IMAqE FILE (WITH 80-CHAR LOgKAL 
RECORDS) CAM BE HEAD BY THE COMPILER, 

THE MOST 0«VIGUS USE OF THE -COMPILE CARD IS TO ENABLE USERS TO 
3uiLD UR A SNOBOL "LIBRARY" QF FUNCTIONS* WHICH CAN THEN BE USED 
8Y ANYONE BY SIMPLY INCLUDING A -COMPILE CARD FOR EACH FUNCTION 
DESIrEO. although STANDARDS FQt^ SUCH A LIBRARY ARE CLEAkLY NOT 
ENEHRCEAHLE* 30ME GylDELlNES ARE SUGGESTED HERE WHICH S^^OULD MAKE 
IT EASIER TO USE LIBRARY FILES: 



• 

• 



1) 



2) 



3) 



4) 



5) 



THOROUGH DOCUMENTATION SHOULD EiTHER 3E INCLUDED ^N THE CODE OR 

THERE SHOULD dE COMMENTS AT THE START OF THE FIlE TELlING THE 

USER WHERE TO FIND DOCUMENTATION, 

FUNCTIONS SHOULD BE SET UP BY THE "DEFInE ConTROL CARD* RATHER 

THAN BY THE FUNCTION DEFInEO* SO THAT THE USER OOESNT HAVE TO 

Si;T UP A LOT Op GO-TOS INTO THE COOE. 

THE USER SHOULD GET INTO T^E CODE BY CALLING A FUNCjION* RAtHER 

Than by a go-to. this makes it much easier to integ'^ate; the code 

w[th the .^ain program, 

no instructions in the library file should transfer out 

Of THE FIlE* without EXPLICIT DESCRIPTIONS OF ALL LABELS 

THAT THE CALLING PROGRAM SHOULD CONTAIN, THIS SHOULD 

BE AVOIDED ENTIRELY IF POSSIBLE. 

THERE SHOULD BE VERY EXPLICIT COMMENTS DESCRIBING ALL GLOBAL 

VARIABLES USED OR ALTERED BY THE cODE. WHENEVER POSSIBLE' 

THE CODE SHOULD 00 ITS OWN INITIALIZATION BY MEANS OF 

ThE -SET CONTROL CARD* RATHER THAN ASKING THE USER TO 



• 



/ 



# 



■■m 



m 



506000 

509000 
510000 
511000 
512000 
513000 
514000 
515000 
516000 
517000 
518000 
519000 
5,?0000 
5 ? 1 
53i^000 
523000 
524000 

325000 
536000 
5 ? ? 
5^6000 
5?9000 
5 30000 
5 31000 
53^O0Cl 
533000 
534000 
535000 
5'36006 
537000 
538000 
539000 
5A0000 
5^*1000 
542000 
543000 
54 4000 

545000 
546000 
547000 
548000 
549000 
550000 
551000 

552000 
553000 
554000 
555000 
556000 

557000 
558000 

559000 
560000 

561000 
562000 
56 3000 
564000 



riGURf-; OUT WHAT TO DU, 
6) LABELS SHOULD BE SUCH THAT USERS OF THE FILE ARE UNLIKELY 
TO DUPLICATE THEM IN THEIR OWN COOE. THIS IS MOST EASILY 
HANDLfc";U BY MAKING EACH LABEL INCLUDE EITHER THE NAME OF 
THE FILE OH Tht NaME GF TtiE FUNCTION THEY ARE USED IN, NOTE 
THAT IF TWO LIBRARY FILES USE THE SAME LABEL* THEY CANT 
BE USED IN THE SAME PROGRAM, 



%CP 12 
-LIBRARY <iM 
THIS CAR 

\/rr» c; T riM 
» u ■ ■ " i ■-' ' ' 

THIS LIB 
RECOMPiL 
CARD IS 
JUST BEF 
PRrGRAM* 
THE -LIB 
-LIBRARY 
IN ADD IT 

cards' AR 



AMEr>/<NAMF2> 

D CREATfci A "LIBRARY" FIlE CONTAINING THE COMPILED 

Mr Tj.)c; PRQgRAM, THF FILE IS NAMED <N AMEl */<NAMF;?> , 

RARY FILE CAN THEn' 8E USEd'in A LATER RUN WITHOUT 

ING IT B/ USING THE -LOAD CARD (SEE BELOW), A "LIBRARY 

NORMALLY THE LAST CARD In THE PROGRAM DECK* COmING 

ORE rHF END CARD, BUT IT CAN APPEAR ANYWHERE IN A 

AND THE PROGRAM STORED In THE FILE WILL LOOK AS IF 
RARY CARD HAD BEEN FQLLOwED BY AN END CARD, SEVERAL 

CaRoS CAN BE USED IN THE SAME PROGRAM, IF DESIRED, 
ION TO THE PROGRAM ITSELF* ANY LIMITS SET BY -LiMiT 
F SAVED* AS IS THE ENTRY POINT AS OF THE "LIBRARY CARD. 



• 



%CP 13 
-LOAD 
THI 
PRE 
A V 
IF 
HIL 
INT 
CAU 
ONL 
3EF 

-or 

PRO 

loa 



<NAME1 
S LOAD 
VI0U3 
ALIO L 
ThE FI 
L OFTE 

n ITS 

SE THE 
Y ONE 
Of^E AN 
FINE C 
GRaM* 
DED FR 



>/<NAM 
5 A Ll 
RUN. 

IBRARy 
LE WAS 
N BE U 
TABuES 
COMPI 
-LOAD 
Y OTHE 

ONT'=?OL 
WHICH 
DM THE 



C2> 

BRARY FI 

IF THt: K 

FILE, A 

THERE* 

NABlE TO 

WHEN TH 

LER TQ S 

CARD CAN 

R PrOGKA 

cards)» 

WILL d£ 
F 1 1 E . 



LE CR 
ILE N 

DUG 
BUT C 

RECO 
E PRO 
IMPlY 

BE U 

M MAT 

THE 

COMPI 

(THE 



EAjED 
AMED I 
nOSjIC 
ONTAIN 
VER FR 
BLEM I 

GIVE 
SEO IN 
ERIAL 

-LOAD 
LED AN 
FILE, 



BY A -LIBRA 
S NOT PRESE 

MESSAGE wl 
to DAMAGED 
OM THE BAD 
S DISCOVERE 
UP AND THE 

A PROGRAM, 
(INCLUDING 

CARD CAN B 
D ADDED ONT 
OF COURSE, 



RY CARD IN A 

NT OR IS NOT 

LL BE PRINTED. 

CODE* The COMPILER 

INFORMATION LOADED 

D; THIS WILL 

JOB WILL TERMINATE. 

AND IT MUST BE 
INSTRUCTIONS, -SET* 
E FOLLOWED Hi MORE 
THE PROGRAM 
WiLL NOT BE ALTERED,) 



• 

• 
• 

• 



^SECTION 3 

3SPAGE 1 

3, PROGRAM 



GRGANIZAriON. 



A SmOROu program CONSISTS OF A SfT Of INSTRUCTIONS, THE PROGRAM 
CAN BE INPUT FRQM A CaRD-ImaGE FIl^* OR FROM A TELETYPE. EACH CARD 

Image frgm an input file starts a new instruction, unless the first 
character is 't, ,., i iv) which case the card is a continuation of the 
previous lustructloiv). in 955oo snqbol* it is also possible to fit 

SEVERAL INSTRUCTlQNi qN qNE CARD* THqUGH THIS IS RARELY DqNE. 

FOR JOBS Run FROM A TELETYPE, THE PROGRAM IS READ FROM THE TELETYPE, 
WITH EACH INPUT HEING aN INSTRUCTION, CONTINUATIONS aRL NOT VauID 
FROM A TELETYPE, TrilS IS NOT REALLY A RESTRICTION* SINCE FEW PEOPLE 
ACTUALLY ATTEMPT TO INPUT ENTIRE PROGRAMS FROM A TELETYPE. IT IS FAR 






• 



• 

• 



5^15000 
566000 
567000 
56 8 
569000 
5^0000 
571000 
S^'SOOO 

573000 
574000 
573000 
5i'6000 
577000 
578000 
579000 

5=50000 
5^1000 
582000 
5B3000 

5a<:«000 
585000 
5*^6000 
537000 
568000 

5 « 9 
590000 
591000 
592000 

593000 
59a000 
595000 
5^6000 
597000 
598000 
599000 

6 00000 
601000 

6o;?ooo 

60H000 
604000 
605000 
606000 
607000 
606000 
609000 
610000 
611000 
612000 
613000 
614000 
613000 
616000 
617000 
61B000 
619000 
620000 
621000 






EASIER TO C 
EDTTIKG PRO 

To THE FILE 
SCATTERE 

snobhi, cQnt 
are nct act 
contrcl car 

FUNCTjri.NjS n 
VARIABLES. 

A FRqGRA 
WHICH ARE C 
LISTING, BU 
USE OF COMM 

AT THE E 
Is A CARD n 
CHARACTERS 
To THE PROG 

to be execu 

In the prog 

instruct 

needed when 

AMD OTHER I 
STRING OF N 
IS A BLANKf 
PART CF ThE 
INSTRUCTION 
A SNOBOL 
CUNlIKE MOS 

of code for 
one ccnsequ 
Must re uni 
tatjons on 

OM THE fl550 
CAUSES iT T 
CAN BE USEE 
PREVIGUSLY 



iSPAGE 



REATE A uISK FltE CONTAINING THE 
GRAM), ANO USE THE -COMPILE CARD 



PROGRAM (SAY* 
TO DIRECT THE 



WITH AN 
CQMPIUER 



AMONG THE INSTRUCTIONS IN A PROGRAM CAN BE ANY NUMBER OF 

RGL CARUS, WHICH ARE INSTRUCTIONS TO THE COMPILER, BUT 

UALLY PART OF THE PROGRAM. IN ADDITION TO THE USUAL 

OS, THE H5500 HAS CARDS THAT CAN BE USED TO DEFINE 

URING COMPILATION, AND TO ASSIGN INITIAL VALUES TO PROGRAM 






•A DECK CAN 
AROS STARfl 
T OTHERWISE 
ENTS IN THE 
NO Of A ^NO 
ITH "END " 
ON THE CARD 
KAM. THAT 
TED, IF TH 
RAM IS ASSU 

ions can be 
ever an ins 
nstructihns 

ON-bLaM'< CH 
THE INStRU 

iR INSTRUCT 

3» 
PROGRAM IS 

T OTHER PRO 
EACH SUB-R 

ENCE Of THI 

QUE, THERE 

HOW qOUbLY- 

IS this; 
BE RE-OEF 
UL AT TIMES 
COMPILED, 



ALSO CONT 

NG WITH " 

IGNORED. 

ik progra 
bol progr 
in column 

IS TAKEN 
IS, IT IS 

E ENTIRE 
MEO TO BE 
EITHER L 

truction 

ARE GENE 
A^ACTtRS 
CTION IS 
IQNS, BUT 



AiN A 
*'• OR 
USE 
MS. 
aM 5H 

S t-fl 

AS A 

The 
CARD 

THE 
A3ELE 
MUST 
RALLY 
STaRT 

uNlab 

SjMP 



NY NUMBER OF COMMENT CARDS, 

"%♦', SUCH CARDS ARE PRINTED QN A 
RS ARE ENCOURAGED TO MAKE LIBERAL 

UULU BE AN cNu (*Anu, nriii,h 

, THE FIRST STRING OF NON'BLANK 

LABEL WHICH IS THE "ENTRY POINT" 
LABEL OF THE FIRST INSTRUCTION 
IS BLANK, THE FIRST INSTRUCTION 
ENTRY POINT, 

OR UNLABELED, LABELS ARE 
BE TRANSFERED TO BY ANOTHER ONE* 
UNLABELED, A LABEL IS ANY 

ing in column 1. if column 1 
eleo. labels ahent really a 

LY SERVE as "NAMES" FOR ThE 



a single set of instructions, with no sub-parts 
gramming languages that have separate Blocks 
ouTiNE or Function or whatever they are called). 
s is that statement labels in a snobol program 

Is very little consistency between implemen- 

DEFINED labels are treated* the method USED 

the second label overwrites the first and 

INEO, BUT A warning MESSAGE jS PRiNTED. THjS 
QN INTERACTIVE JOBS TO RE-DEFINE AN INSTRUCTION 



• 
• 
• 



3,1. INSTRUCTIONS. 
<TNSTRUCTI0N> •• : 

<LABELED INST> : 
<unlabeled InST> 
<INST> ! 



<labelfd INST> 
<unlabeleo IiMST> 
<LABEL> <UNLABELEO INST> 

s <blanks> <inst> 

<HUL£> 

<go-tq PART> 
<RULE> <G0-T0 PART> 



the various fgrmi of instructions can be 
cases of the general form: 

<label> <rule> <go-to part> 



WHFRF TT IS remembered that there is ALWAYS AT 
after <LA8EL>, IE THIS IS PRESENT, OR ELSE THE 
STARTS WITH aT LEaST ONE BLaNK. 



TREATED AS SPECIAL 



LEAST ONE BLANK 
INSTRUCTION 



) 

• 



# 



622000 
6?3000 
6:?4000 
625000 
626000 
627000 
626000 
629000 
630000 
631000 
632000 
633000 

634000 
6.1b000 
636000 
637000 
638000 
639000 
6/(0000 
6ai000 
6^2000 
6^3000 
6A400b 
645000 
646000 
6a7000 
648000 
649000 
650000 
651000 
652000 

653000 
654000 
655000 
656000 
657000 
658000 
659000 
660000 
661000 
662000 
663000 
664000 
665000 
660OOO 
667000 
668000 
669000 
670000 
6 7 10 00 
672000 
673000 
6 7 4000 

675000 
676000 

677000 
678000 



THF. 
A <LAB 
To TRA 
USING 

IN SEC 
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IS 
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OF THE 
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IT 
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TO T 
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7, 
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nus T 

TO PA 

ows c 

, AN 

Inst 
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OF COURSE, IS JUST A NAME FOR THE INSTRUCTION, 
Y NEEDED IF SOME OTHfciK PART OF THE PROGRAM IS TO 
HE INSTRUCTION^ THOUGH THERE IS NO OBJECTION TO 
CH ARE NEVER REFERENCED, LABELS ARE DESCRIBED 

THr. PAHT OF AN INSTRUCTION THAT OPERATES ON DATA; 
HAT "DDLS THINGS". SEE SECTION 4 FOR DESCRIPTIONS 
YPES OF RULES AVAILABLE. 

RT> TELLS WHAT INSTRUCTIONS ARE TO FOLLOW NEXT, 
GNDITIONAL BRANCHING ON THE SUCCESS OR FAILURE 

INSTRUCTION CAN ALSQ CALCULATE THE LABEL 
RUCTION. OMISSION OF THE GQ-To PART CAUSES THE 
FALL THROUGH" T^ THE NEXT INSTRUCTION IN THE PROGRAM, 



• 



■np 



T « ri C r> 



rir-c^UTprrnMQ Qf qn-rn PaRTS^ 



%CP 8 

3.2 PROGRAM-OEFINEI) FUNCTIONS, 

IN ADDITION TO THE FUNCTIONS PRt-DEFINED BY THE SNOBOl INTER- 
PRETER* A "KOGRAMMEH CAN DEFlNf^ HIS OWN FUNCTIONS CODED IN SNOBOL 
BY USING EITHER THE FUNCTION OEFlNEO (SEE SEC. 9) OR THE -DEFINE 
CONTROL CARD CStt SEC. 2. 2). I^ SECTION 5,3* THE USE OF FUNCTIONS 
CALLS IS described; THIS SECTION DESCRIBES THE DEFINITION OF THE 
FUNCTION'S, 



%C.P 15 

3.2,1, FUNCriON CALLS. 

WHEN A PROGRAM-DEFINED FUNCrlON IS CALLED* THE FOLLOWING OCCURS: 

1) THE STRING WITH THE SAME NAME A3 THE FUNCTION Is PUSHED DOWN* 

AND SET NULL. 

2) THE FORMAL PARAMETERS ARE PUSHED DOWN* AND THEN ASSIGNED THE 
VALUES UF THE CORRESPONDING ACTUAL PARAMETERS. IE THERE ARENT 
ENOUGH ACTUAL PAHAmETERS* THE EXTRA FORMAL PARAMETERS ARE SET 
NULL. 

3) THE LOCAL VARIABLES ARE PUSHED AND SET NULL, 

4) THE PROGRAM T^^ANsEERS TO THE FUNCTIONS ENTRY POINT. 






ICP 15 

3.2.2* FUNCTION 



RETURNS, 



WHEN A PROGRAM TRANSFERS TO THE "RESERVED LABELS" RETURN AND 
FrFTURN* THE LAST FUNCTION CALLED IS TERMINATED* AND THE FOLLOWING 
ACTIONS OCCUR: 

1) THE vALUt OF THE STRING NAMED THE SAME AS THE FUNCTION IS GIVEN 
TO THE CALLING INSTRUCTION A3 THE VALUE OF THE FUNCTION, 

2) THIS STRING* THE FORMA(, PARAMETERS* AND THE LOCAL VARIABLES ARE 
ALL POPPED UP* RETURNING THEM TO THEIR VALUES BEFORE THE CALL. 

3) IF THE RETURN wAS MADE BY TRANSFERING TO "FRETURn"' THE CALLING 
INSTRUCTION FAILSi IF THE RETURN WAS BY "RETURN"* THE CALLING 
INSTRUCTION CONTINUES AS USUaU. 






m 



€ 



m 
m 
m 
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6r900Q 
660000 
681000 
632000 
683000 
6Bil000 
635000 
666000 
667000 
668OO0 
689000 
690000 
691000 
V <; u u 
693000 
.6.94000 
6913000 
696000 
697000 
698000 
699000 

.70000.0 
701000 
7o2000 
703000 
704000 
705000 
,706000 
707000 
708000 
709000 
710000 
711000 
712000 
'713000 
714000 
715000 
716000 
717000 
.718000 
719000 
720000 
721000 
722000 

723000 
724000 

725000' 
726000 

72^000 
728000 
729000 
730000 
731000 
732000 
733000 
734000 
735000 
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i . 2 , 3 , F 
IN ca 
FUNCTinw 
THAT I',, 
INSTRUCT 

Return a 

FUNCTinN. 
A STRING 
THEN TH.A 



UNcriON cnoL. 

NTRaST with most other programming UANGUAGESi. A SNOBOL 
HAS NO "BODY" HP CODE THAT BELONGS TO THE FUNCTION ALONE, 
FROM IT'i F.MTRY PQINT* A FUNCTION CAN TRANSFER TO ANY 
ION IN THE PROGRAM. RETURN OCCURS ONLY WHEN A TRANSFER TO 
R FRETURN 13 MADE. THIS MEANS THAT SEVERAL SNObOL 
S CAN SHARE All or part of THEIR CODE. ALSO* NOTE THAT IF 

IS NOT ONE OF THE STRINGS PUSHED AT THE CALL OF A FUNCTION* 
T FUNCTION CAN USE OR AlTER THE STRING FREELY. 



%CP 12 

3..2,4., CALLING DcFINEC ). 

ONE VERY COMMON PROBLEM wITh NOvICe SNOBQL PROGRAMMERS IS THE 
FAILURE TO REAlIZC THaT THE FUNCTION DEFlNEC) ACTUALLY CREATES A 

Function whfn it is called, it is not enough to include a call of 

DEFlNEO In a PR0GRAM-.-THE PROGRAM MUST EXECUTE THE STATEMENT CON- 
TAINING, THF. CALL* OR THE FUNCTION WILL NOT BE DEFINED. 

THIS PROBLEM CAN BE AVOIDED ON THE B5500 BY USING THE -DEFINE 
CONTROL CARD CSEC.2,2). SINCE MOsT SNOBOL SYSTEMS DONT HAVE THIS 
CONTROL CaRD* USING IT hiLL MaKE THE PROGRa^ INCOMPATIBLE *^ITH THESE 
OTHER SNOBDlS. 



%CP 25 

3.3, PROGRAM ENTRY POINTS. 

IN ORDER TO START EXECUTION Qf A SN080L PROGRAM* IT IS NECESSARY 
TO INDICATE WHERE THE EXECUTION IS TO BEGIN. THE FIRST INSTRUCTION 

TO BE Executed* the "entry point"* is indicated by the end card at 

THE END OF THE PROGRAM, THE FIRST FOUR CHARACTERS OF THIS CARD ARE 
"End "* THE COMPILED SCANS THE REST OF THE CARD FOR A NGN-SlANK 
CHARACTER, IF ONE IS FOUND* THE STRING UP TO THE NEXT BLANK OR TO 
THE End of THE CARD IS THE lABEu OF THE ENTRY PQInT, FqR EXAMPlEi 

end begin 

SAYS THAT EXECUTION IS TO START AT THF LABeI BeGIN. IF THERE IS 
NO LABEL ON THF EnO CARD, THE FIRST INSTRUCTION IN THE PROGRAM IS 
TAKEN TO BE THE ENTRY POINT. 

.. IF THE PROGRAM CONTAINS -COMPIlE CARDS* AND THE FIlES THEMSElVES 
CONTAIN ENO CARDS* THE LABELS (IF ANY) ON THESE END CARDS ARE NOTED* 
AnO THE LAST SUCH LABEL IS THE PROGRAM ENTRY POINT. 

IF THE ENTRY POINT IS A LABEL THAT DOESNT OCCUR IN THE PROGRAM, 
A DIAGNOSTIC MESSAGE TO THAT EFFECT IS PRINTED* AND NO EXECUTION 

TAKES Place, this can be used to get compiles for syntax checking 

OR A compile to LIBRARY WITHOUT IMMEDIATE EXECUTION, 






• 
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# 



• 



m 
m 



736000 
737000 
738000 
739000 
7^0000 
741000 
742000 

7ita000 
745000 
746000 
747000 

748000 

"» '. 1-1 ^ A (^ 
/ -'i -y u u u 

750000 
751000 
752000 
753000 
754000 
755000 
756000 
757000 
758000 
759000 
760000 
761000 
762000 
763000 
764000 
765000 
766000 
767000 
768000 
769000 
770000 
771000 
772000 
773000 
774000 
775000 
776000 
777000 
778000 
779000 
780000 
781000 
78 2000 
783000 

784000 
7^5000 
786000 
787000 
788000 
789000 
79QO00 
791000 
792000 



4. RULES. 
<RULE> 



<STR REF> 
<PATTERN> 



: = 



<STR REF> 
<STR MEF> 
-fSTR REF> 
<STR REF> 
<FLEMEM> 
<ELEMEINT> 
<STR VaR> 
<PATTERN> 
<PATTFRN> 



<PATTERiM> 

<replacement> 

<PATTERiv> <REPLACEMENT> 



<pattern> 

<BACK R£F> 



<RePLACEMENT> 

<RPL delimiter> 



<RPL DEL1MITER> <eXPRESSlON> 






= *■ 



THERE ARE SEVERAL VARIETIES GF RULES, AS SHOWN ASOVE/ BUT ALL 
CAN BE VIEWED AS SPECIAL CAsES OF THE GENERAL FORM: 

<STP REF> <PATTERN> <HEPL ACEMENT> 

IF THE PATTERN IS OMITTED, AN ARBITRARY STRING VARIABLE 
WILL BE assumed; THIS STRING VARIABLE WILL MATCH THE ENTIRE STRING 
REFERENCE, RESULTlNti IN An "ASSIGNMENT STATEMENT", IF THE REPLACEMENT 
IS OMITTED, NO REPLACEMENT TAKES PLACE, IF BOTH PATTERN ANU REPLACE- 
MENT ARE OMITTED' THE STATEMENT MEREuY EVALUATES THE STRING REFERENCE. 
In the LATTER CASE, THE STRING REFERENCE CAN ALSO BE OMIijED, AND 
THE STATEMENT IS A "NO-OP", 

THE FOLLOWING SUfi-SECTlQNS DESCRIBE MORE THOROUGHLY THE VARIOUS 
PARTS OF A RULE. 



# 
• 



%CP 
4,1, 



20 

THp 



STRING REFERENCE. 



<STR RtF>' THE "STRING ReFeRE^CE"' IS THE STRING THAT THE RULE 
IS TC OPERATE ON^ IT IS THE "SUBJECT" OF THE STATEMENT, THE COMPILER 
ASSUi^ES THAT THE SHORTEST COMPLETE EXPRESSION AT THE START OF A RULE 
IS THE STRING REFERENCE^ IF A STRING REFERENCE CONSISTING OF SEVERAL 
STRINGS CONCATENATED IS DESIRED, IT MUST BE SURROUNDED BY PARENTHESES. 
SOME EXAMPLES OF VALID STRING REFERENCES ARE! 

y 

(ALPHA BETA + GAMMA) 

SiZECA) 

$C"A" N) 

"123456789" 

A + B 

EACH TYPE OF RULE IKTERPRETS ITS STRING REFERENCE SLIGHTLY UIFFERENtLY, 
AND SOMp RULES WILL NOT AccEPT ALL OF THE ABOVE AS STRING REFERENCE, 
^^^ FOLLOWING DESCRIPTIONS OF INDIVIDUAL RULE TYPES DESCRIBES EACH 
USAGE IN DETAIL. 



m 



€ 



• 



• 



• 



793000 
794000 
795000 
796000 
797000 
798000 
799000 
800000 
801000 
B02000 
303000 

BOaooo 

805000 
'306QQ0 
807000 
808000 

809000 
8.10000 

BllOOO 
812000 
81 3000 
81 ^1000 
815000 
816000 
817000 
818000 
819000 
820000 
821000 
822000 
823000 
824000 
8^5000 
626000 
827000 
828000 
829000 
830000 

831000 
832000 
833000 
834000 
835000 
836000 
837000 
838000 
839000 
840000 
841000 
842000 
843000 
644000 
845000 
846000 

847000 
848000 
849000 
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4.2. RULES WITH STRING KEFERENCE ONLY. 



<RULE> 



<5TR REF> 



This TYPE OF RULE SIMPLY EVALUATES THE STRING REFERENCE. THE 
USU4L USE OF SUCH A RULE IS To CALL A FUNCTION. THIS CAN BE DONE 
EITHER FOR THE SiDE-EFFECTS OF THE FUNCTION* OR TO BRANCH ON THE 
SUCCESS OR FAILURE OF THE FUNCTION, AN EXAMPLE OF THE LATTER IS! 



.gT(Si^eca:)."5") 



tSCRM) 



THIS STATEMENT wiLL TRANSFER TO RM IF THE STRING A CONTAINS MORE 

ANOTHER, RARELY USED* FORM OF THIS TYPE OF RULE IS ^IJH AN INPUT 
STRING AS THE STRING REFERENCE. THIS TYPE OF RULE WILL INPUT A 
RECORD CIF POSSIBLE)* AND THE INPUT WILL BE LOST. FOR EXAMPLE* IF 
THE PROGRAM HAS USED THE STRING LOOK TO READ THE NEXT CaRD FROM THE 
FILE RFaC, tHE card CAN BE CLEARED FROM THE BUFFER BY» 

READ 
And THE NEXT INPUT wIlL GET THE NEXT RECORD. 
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4,3.. RULES KITH PATTERNS. 



<PULE> 



<5Tr REF> <pattern> 



THIS CAUSES A "PATTERN MATCH" TO TAKE PLACE, A PATTERN IS A 
DESCRIPTION OF A STRING* AND A PATTERN MATCH IS AN ATTEMPT TO FIND 
A SUpSTRl.NG OF THE STRING REFERENCE WHIcH IS DEScRItjED BY 
THE PATTERN. THE VARIOUS MEANS OF BUlLDiNG PATTERNS ARE DESCRIBED 
In SECTION 6. THE GENERAL WAY IN I^HICH THIS TYPE OF RUlE IS 
EXECUTED IS AS FQLLJWS: 

1) EVALUATE THE STRANG REFERENCE. IF It IS AN INPUT STRING* READ 
A RECORD. 

2) EVALUATE THE PATTERN* FROM LEFt TO RIGHt, 

3) ATTEMPT TO MATCH THE PATTERN ON SOWE SUBSTRING OF THE STR REF, 

OF COURSE* IF ANY PART OF THE RULE FAILS* THE RULE IS TERMINATED* 

And THE Failure part qf the go-to part is evaluated. 

FOR EXAMPLE* ASSUME THAT X = "ABCDE" AND E • "BC". THE RULE 

X E "D" /SCM) 
WILL SUCCEED' AND J'r-E PRGGRaM WILL TRANSFER TO M. THE STRING REF- 
ERENCE, "ABCDE'S CONTAINS THE PATTERN, E "O"* OR "BCD". ON THE 
OTHER HAND* THE RULE 



X E "C" /S(M) 
WILL EAIL' AND TRANSFER Tq m WIlL NOT BE 
REFERENCE DOES NOT CONTAIN THE PATTERN E 
FOR ANOTHER EXAMPLE' THE RULE 



MADE* BECAUSE THE STRING 
"C"* OR "8CC". 



■ 

m 
m 
m 
m 



m 
m 
m 



850000 
851000 
852000 
853000 

85^000 
855000 
856000 
857000 
856000 

859000 
860000 
861000 
862000 
863000 
864000 

86^000 
866000 
867000 
866000 
869000 
870000 
871000 
872000 
873000 

87i*000 
875000 
876000 
877000 
876000 
879000 
880000 
881000 
882000 
883000 

fipaooo 

885000 
866000 
887000 
888000 
889000 

890000 
891000 
892000 
893000 

894000 
895000 
89 6000 
897000 
898000 
899000 
900000 
901000 
902000 
903000 

904000 
905000 
906000 



WILL 
" 1 " , 



"1357" D 

SUCCEED (AND 
"13"* "135"* 



/SCX) 

TRANSFER TO 
"1357'% "3", 



i 
i 



X) IF D IS ANY Of THE FOLLOWINQJ 
"35", "357", "5", "57", "7". 
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4,4, RULES WITH REPLACEMENTS. 



<RULE> 

<REPLACEMENT> 
<RPL DELIMIT£R> 



<STR REF> <replacement> 
<RPL DELIMITER> <EXPRtSSiON> 




X = "123" 

ALPH.l = BET. 3 + GAMN.7 

LIST *■ NUM "/" ITEM "," LIST 

$("X" N) «- S("X" N) ";" E 

$SFR(A,£e !M) 

4E ♦■ F G "," EXF 

I = J 

N = .LT(N,MaX) N 



• 

• 

• 



$A $("8" N) FLcAl,A2 "*" A3) 



+ "1" 



THE La^T EXAf^PLE IS a "CONDITIONAL ASSIGNMENT". IF THE CaLL OF .LTC) 
FAILS n.E., IF N > MAX), jHE STAtEMENj WILL FAIL OuRING EVALUATION 
Up THE REPLACEMENT, AND ThE ASSIGNMENT WILL NOT BE CARRjED OUT, 



%CP 30 

4.5. rULFS WITH flOTH PATTERN AND REPLACEMENT. 



• 



<RULe> 



<STR RFF> <PaTTeRN> <REPLaCEMENT> 



This iS thE most complex form of a rule, in which a pattern match 

IS AtfEMPTED, AND IF IT SUCCEEDS, TH£ MATCHED SUBSTRING OF THE STrInG 
REFERENCE IS REPLACED WITH THE VAlUE OF THE REPLACEMENT EXPRESSION. 

Specifically* the FuLLOi^iNG actions occur in this type of rule: 

n the STRI^J^, RE^-ERENCE IS EVALUATED* DOING INPUT IF IT IS AN 
INPUT STRING. 

2) THE PATTrRN IS EVALUATlq fROM LEFT TG RIGHT, 

3) A PATTERN MATCH IS ATTEMPTED. IF THIS FAILS (AS wHH ANY 
OTHER FAILURE)* THE RULE Is TERMINATED AND jHE FAILURE EXiT 
IS TAKEN. 

4) THE REPLACEMENT IS EVALUATED, 



# 



m 






907000 
908000 
909000 
910000 
9U000 
913000 
913000 
914000 
915000 
916000 
917000 
918000 
.919000 

920000 
921000 

.9-22.000 
923000 

924000 
925000 
926000 
927000 
9280.00 

9?9000 
930000 
931000 
932000 

933000 
934000 
935000 
936000 
9?7000 
9;3«000 
939000 
940000 
941000 
942000 
943000 
94«000 
94^000 
946000 
947000 
948000 
949000 
950000 
951000 
952.000 
953000 
954000 
955000 
956000 
957000 
956000 
9 59000 
960000 
961000 
962000 
963000 






5) THE SUBSTRING OF THE STHING REFERENCE MATCHED BY THE PATTERN 
IS REPLACED Bi' THE VALUE OF THE REPLACEMENT EXPRESSION* IF 
THE STRIMG REFERENCE IS AN OUTPUT STRING* OUTPUT OCCURS. 

AS USUAL* ANY PART OF ThE RULE CAN FAIL. iF THIS HAPPENS* THE RULE 
IS IVMEnlATELY TERM! -vlATED* AND THE FAILURE PART OF THE GO-TG PART 

IS EVALUATED. 

FCR EXAMPLE* IF AB = "COME"* THEN THE RULE 



AB 



• OM" 



"RU" 



IF AB HAD BEEN* 
AND AB WOULD NOT 



will succeed* and give ab the new value "crate". 

say* "came", the pattern match would have failed, 

have been altered. ^ ,. ,. ^ 

note that replacement applies only to the substring hatched by 

the pattern* not to the whole string reference* and that the new 
Value that replaces the substring need not be the same size as the 

substring. 

aS a special Case* the replacement paRt can be empty csee 
the bnf definition of <exprlssiqn>), In this case* the replace- 
ment EXPRESSION IS THE f^^LL STRING* AND THE MATCHED SUBSTRING IS 
DELETED. FOR EXAMPLE, THE RULE! 

L A »,» = !S(L)F(M) 

WILL DELETE ALL PERIODS FRQM a* AmD THEn TRANSFER TO M, 
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5. EXFRESSKINS. 

<EXPRESSI0N> 



• 



<ELEMENT> 
<NAi'<ED EXPR> 
<VALUE EXPR> 



<ccncatenate 

<I.D.ENTIFIE«> 



<ELEMENT> 

<.EXPRESSION> <C0NCATENATE 0P> <ELEMENT> 

<EMPTY> 
<NAMED EXPR> 
<VALUE EXFR> 
<IDENTIFIER> 
$ <ELEMENT> 

<LITERAL> 
<GROUPING> 
<FCT CALL> 
::=; <ARlTh EXPR> 
GP> !:= <BLANKS> 
<LeTTeR> 

<IDENTIFIER><LETTeR> 
<DIGIT> 
<1DENTIFIER><DIGIT> 



s = 



8 = 
2 ts 



• 

• 
• 
• 



<LITERAL> 
<GR0UPING> 
<FCT CALL> 
<FCT NAME> 
<PARAMS> 



: ;» 
: ts 



i : 



<IDENTIFIER> . 

" <STRING> " 

( <EXPRESSlDN> ) 

<FCT NAMEX <PARAMS> J 

<identifilR> 

<EXPRESSiaN> 

<PARAMS> * <EXPRESS10N> 



# 



• 

# 



m 



# 
# 



964000 
965000 
96 6000 
967000 
966000 
969000 
970000 
97t000 
97;eO00 
973000 

97/1000 
975000 
976000 
9 7 70 CO 
978000 
9 7900.0 
980000 
981000 
982000 
983000 
984000 
985000 
986000 
987000 
988000 
989000 
990000 
991000 
992000 
993000 
994000 
995000 
996000 

997000 
998000 
909000 
1000000 
1001000 
1002000 
1003000 

100 4000 
1005000 
1006000 
1007000 

looeooo 

1009000 
10 10 000 

101 1000 
1012000 
1013000 
1014000 

lOlbOOO 
1016000 

1017000 
1018000 
1019000 
1020000 



<ARITH .EXPR> 

<y-T[,-;RM> 
<E-TfrRM> 
<ARITH ELT> 

<ADD 0P> 
<MUL 0P> 

<EXP 0P> 



<A-TERM> 
- <A-TERM> 
<A-TERM> <ADO 
<N'-TERM> 
<M-TeHM> <MUL 
<fc.-TERM> 
:= <E-TERM> <EXP 
<ARITH ELT> 
<NAMED EXPR> 
<GROUPING> 
<FCT CALL> 

<liteRal> 

+ 
* 

X 

/ 

* * 



ap> <m-term> 
ap> <e-tekm> 

0P> <ARlTH ELT> 



# 



EXPRESSIONS ARE USEO TO GENERATE STRING VALUES* AND TO FORM NEW 
STRINGS FROM OLD. THE VARIOUS TYPES OF EXPRESSIONS ARE DESCRIBED 
I.N THE FOLLOWING SECTIONS, 



*CP 12 

5,1. NAMES 



AND VALUES. 



■ IN SN0BdL3* BOTH .MAMES AND VALUES OF DATA ARE STRINGS* AND SO IT 
IS QUITE NATURAL THAT THERE SHOULD BE SOME CONFUSION BETWEEN THE 
Two AMONG programmers; ExPFCIALLY since the INDIRECTION OPERATOR 
("S") PROVIDES A WAY TO MANIPULATE STRING NAMES AS WELL AS 
THEIR VALUES. IN GENERAL* ANY STRING CAN BE USED AS BOTH A NAME 
AND AS A VALUE. ONE RESTRICTION TO THIS IS THAT NAMES THAT APPEAR 
AS SUCH' In SNOBOL code CAN ONLY BE THQSE THAT ARE "IDENTIFIERS"-" 
NON-NULL STRINGS OF LETTERS. DIGITS, AND PERIODS, OTHER NAMES 

MUST PE Handled indirectly. 
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5.1,1, LITERALS, 

the SIMPLEST WAY TO DESCRIBE A STRING IS TO GIVE THE STRING ITSELF, 
THIS Is DONE BY \JslnG A "LITERAL"* WHICH 1$ A STRING OF CHARACTERS 
ROUNDED bY QUOTES, QUOTES THEMSELVES Ca^ NOT OcCUR IN LITERALS* a^U 

Must BE handled differently, some examples of literals ares 

t» ^ n 



"A + B" 

"THIS is a STHInG.' 

"ABCDEFGHIJKLM" 

" GEORGE 0. SMITH ' 



Thf LAST Literal is the null strinq, which has a position in string 



# 






10i?1000 
1022000 
1023000 

loa^ooo 

1025000 
102.6000 
1027000 
1028000 
1029000 
1030000 
1031000 
1032000 
103 3000 
lC?ii0C0 
1035000 
1036000 
1037000 
10 3S000 
1039000. 

10/40000 
1041000 
10/J2000 
1043000 

104/iOOO 

loasooo 

10^6000 
1047000 
1.04.8000 
1049000 
1050000 
ICJIOOO 
1052000 
1053000 
1054000 
1055000 
1056000 
1057000 
1058000 

1059000 
1060000 

1061000 
1062000 

1063000 
1064000 
1065000 
1066000 
1067000 
1066000 
1069000 
1070000 
1071000 
1072000 
1073000 
1074000 
1075000 

10''6ooO 
1077000 



FACTf IT IS THE IDENTITY 



"GOOD" 
AS 



MANIPULATION SIMILAR TO ZERO IN ARITHMETIC (IN 
ELEMENT FOR THE OPERATION OF CONCATENATION). 

NOTE THAT* AS IN THE NEXT-TO-U AST EXaMRLE* A BLANK IS AS 
A CHARACTER AS ANY OTHER* AND THE STs^lNG " " IS NOT THE SAME 
THE STf'ING " ". THEY CONTAIN DIFFERENT NUMBERS OF BLANKS, 

IG HANDLE QUOTES* SN080L3 PROVIDES A SPECIAL STRING NAME, QUOTE* 
WHICH IS INITIALIZED TO CONTAIN A SINGLE QUOTE AS ITS VALUE, THIS 

Can, cf course, be changed by the program. 



«CP 25 
5,1.2. NAMES 

IT Is NECESSARY* OF COURSE, TO TALK ABOUT STRINGS WITHOUT SPECIFYING 
COR KNOWING) .THEIR ACTUAL VALUES, SO SNOBOL PROVIDES THE ABILITY TO 
GIVE A STRING A NAME. A NAME IS ITSElF A STRING, WHOSE VALUE IS 
ANOTHER (NOT NECESSARILY DIFFERENT) STRING, IN GENERAL, ANY 
STRING CAN RE U5ED AS A NAME* BY USING INDIRECTION CSEE THE NEXT 
SECTION), NAMES ARE ASSIGNED VALUES IN TWO DIFFERENT WAYS' BY AN 
"ASSIGNMENT"* AND BY USING THE NAME WITH A STRING VARIABLE* SOME 
EXAMPLES OF ASSIGNMENT STATEMENTS ARE: 

X = "123^" 

! = J 

ALPHA = A B CC+D) FFC"-") 

N = .6T(N,"0") N - "1" 

"another WAY TO GIVE A STRING NAME A VALUE IS TO ATTACH THE NAME TO 
A STRING VARIABLE IN a PATTERN, IF THE PATTERN MATCH SUCCEEDS, THE 
SUBSTRING MATCHED BY T^E STRING VARIABLE WILL BECOME tHE NEvs 
VALUE Of THE STRING NAM£, SOME EXAMPLES ARE! 



• 



• 



"1234" 



*X* 

' *I* 



' / " * J * 



TR ", 

c *cH/"r'* *c* 
Card *r/''72"* *seq* 

EXP *(E1)* 

NOTE THAT THE FIRST EXAMPLE IN THIS SET MEANS THE SAME AS THE FIRST 
EXAMPLE IN THE PREVIOUS SET, 

NAMES THAT ARE USED IN SnOBOL CODE MUST SATISFY THE RESTRICTION 
OF BEING AN " IDENT iF iER"--A NON-NULL STRING OF LETTERS* DiGlTS* AND 
PERIODS, ANY OTHER STRING WHICH IS TO BE USED AS A NAME MUST BE 
HANDLED BY INDIRECTION, 
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5,1,3. INDIRECTION. 

SINCE NAMES AND VALUES IN SNQB0L3 ARE BOTH STRINGS, IT IS USEFUL 
To BE ABLE TO CONNECT THE TWO, THIS IS DONE BY MEANS OF "INDIRECTION", 
WHICH CONSISTS OF TREATING THE VALUE OF A STRING AS A NAME. THE 
OPERATOR WHICH DHES THIS IS "$"* WHICH IS A UNaRY PREFIX oPERATqR, 
WHEN "t" Is APPLIED TO AN EXPRESSION* THE VALUE OF THE RESULTING 
EXPRESSION IS THE VALUE Op THE STRING NaMEO BY THE ORIGINAL EXPRES- 






■ 









# 

m 






1076000 
1079000 
lOflOOOO 
lOPlOOO 
1082000 
1083000 
lORiJOOO 
lOfiSOOO 
1086000 
lOS/'OOO 

108P0OO 
10R9000 

1090000 

I !". 1 n o A 

* v^ > J. v/ V vy 

1092000 

1093000 
109-!»000 
1095000 
1096000 
109/000 
1098000 
1099000 
1100000 
1101000 
1102000 
1103000 
1104000 
1105000 
1106000 
1107000 

uoaooo 

110 900 

111 0000 
lUlOOO 
1U2000 
1113000 

II l-iiOOC 
1115000 
U16000 
1117000 
1119000 
1119000 
1120000 
1121000 
11??000 
1123000 

1124000 
1125000 

1126000 
1127000 
1126000 
1129000 
1130000 
1131000 
1132000 
1133000 
1134000 



SIDN» PUT ANOTHER* MORE. INTUITIVE /,AY# THE "S" QPERATOK REPLACES 
Its ARGUMENT WITH THE THING THAT IT NAMES. A THIRD INTERPETATION ISJ 

Indirection removes one layer oe quotes from around its argument, 
for example, if a = ''b", b s "c's and c = "d'% then $a s s"b" = b 

= "C", SIMILARLY^ i$A = $B = C = "D". FOR ANOTHER EXAmPl^' SUPPOSE 
THAT I = "3/" AnO C37 = "NEW YORK". THEN; 



$("C" I) 



'NEW YORK" 



FOR YET ANOTHER LxAMPlE, IT 
In SNn80L3* A LANGUAGE THAT 



data types. 
Indirection 



ARFUY HANDLING 
ON AN EXPRESSION 



WILL BE SHOwN HDw "ARRAYS" CAN BE HANDLED 
DDESNT HAVE ARRAYS AS SUCH AMONG ITS 
CAN BE SIMULATED^ HOWEVER/ BY USING 
THAT CONTAINS THE "ARRAY NAME" AND 



• 

• 



. i.. It 



HE RELEVANT SUBSCRIPTS* SEPARATED BY AN^ APPROPRIATE 



DELIMITERS. TO LOOK ALGQL-LIKE* THE DELIMITERS CAN BE BRACKETS 

AND cd^^^^as. Thus* ro use the i* u* k element of the aRRay ab# the 
Following expression could be usEdj 



$("ABr' I "," J 



]") 



IF I = "3"* J « "-2"* AND K = "47"* THIS WOULD GIVEJ 

ABC3*-2»47J 
SOME FURTHER EXAf^PLES OF EXPRESSIONS INVOLVING INDIRECTION ARE? 

SI 

■B $ S $ " " 

%"A=Il" 

$(SX "/" SB "/" $("N" I)) 

*£F(A*"3") 

SSSIZECE) 

^("FATHER/" NaMe) 

S("NAME-" SOC.SEC.ND.) 
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5,2. CONCATENATION, 

THE BASIC STRING OPERATOR IS CONCATENATION* WHICH SImPLY JOINS ITS 
ARGUMENTS END-fO-END, CONCATENATION Is ASSUMED IN SN0B0L3 WHEN TWO 



• 



STRiNgS (LITERALS* NAMES* EXPRESSIONS* ETC.) ARE PLACED NEXT TO 
EACH OTHER WlTHgUT AN OPERATOR BETWEEN THEM. SINCE THE OPERATION 
CONCATENATION Is ASSOCIATIVE* IT CAN BE USED AS IF IT WERE AN 
OPERATION WITH ANY ,nUmH£R Qf OPERANDS* AND SO CONCATENATE EXPRES- 
SIONS CONSIST SIMPLY OF A LIST OF STRINGS TO BE CONCATENATED* WITH 
JUST PLONKS BETWEEN THEM IF A DELIMITER IS NEEDED. SOMg EXAMPLES 
OF EXPRESSIONS INVOLVING CONCATENATION AREj 

A "*" B 

CA "*" B) 

C"ABC" X) "D£" 

" " ALPHA " " 

LIST ELT "/" PROPS "," 



OF 



# 



• 

• 



• 



m 



1135000 
1136000 
1137000 
1138000 
U39000 

1 laoooo 

lUilOOO 

1143000 
114^000 
1145000 
U 46000 

1147000 
1148000 
1149000 
1,150000 
1151000 
1132000 
11.5 3000 
1154000 
U55000 
1 156000 
1157000 

1158000 
1159000 
1160000 
1161000 
1162000 
1163000 
1164000 
1165000 
1166000 
1167000 
1168000 
1169000 
1170000 
1171000 
1172000 
1173000 
U74000 
1175000 

1176000 
1177000 

1178000 
1179000 

iiaoooo 

1181000 
UB2000 
1183000 
1184000 
1 185000 
1196000 

lis^ooo 

1188000 
U89000 
1190000 
1191000 



A 

These 

EVAi^U 

anh a 

IF TH 
VALUE 

pa«t 

VALUE 
F( ) A 
NEW V 
THAT 



XI " 

"GROu 
S, S 

ATE A 

TEMP 

ERt I 

Is C 

GF TH 
..I.S. T 
LTfRS 
ALUE 
X HAD 



X3 



X4 



PING" IS SIMPLY A STRING EXPRESSION SyRROuNDED BY PAREN- 
ON^E GROUPINGS ARE INCLUDED IN THE ABOVE EXAMPLES. TO 

GROUPING, ALL THE ELEMENTS WITHUM IT ARE EVALUATED, 
URARY STORAGE LOCATION IS GIVEN THEIR CONCATENATED VALUE. 
S ONLY GIML OBJECT WITHIn THE PARENTHESES* A NEW TEMPORARY 
REATED ANYWAY. THIS FACT CAN BE USED IN CASEs WHERE LATER 
e INSTRUCTION MAY ALTER A VALUE OF A STRING* AND THE OLDER 
HE ONE THAT SHOULD RE USED. FOR EXAMPLE* IF THE FUNCTION 

THE STRING X/ THEN THE EXPRESSION CX FO) WILL USE THE 
IN THE CONCATENATION. TO FORCE THE GROUPING TO USE THE VaLUE 

BEFORE THE CALL* THE EXPRESSION SHOULD BE: 



i 

m 



C(X) FC )) 



SIMIL 
WILL 
LOST . 
THE F 

\ l^ 
AT I ON 
AND T 
EVAlU 
In 7 H 

IS EV 

VALUE 
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arly* 

ASSIG 
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ATED, 
F PRE 
ALUAT 

WILL 
E GRO 



IF A 
NAN 
SAME 
ON TO 

BE F 
RAMET 
N AN 
NCATE 
THU 
VIOUS 
ED BE 

BE u 
UPIN6 



PROG 

EW Va 
VALUE 

USE 
(CREA 
ER TG 
IMPlI 
NATIO 

S IN 
PARA 

FOrE 
SED F 
( ) I 



RAM C 
LUE T 

WILL 
THE 
D)*HE 

A FU 
CIT P 
N IS 
F(REA 
GRAPH 

THE S 
OR IH 

S egu 



ALLS FCREAD*READ), THE SECOND PARAMETER 
Q READ* AND THE FIRST INPUT CARD WILL BE 

BE PASSED TO BOTH PARAMETERS). TO CAUSE 
LOER VALUE OF ITS FIRST PARAMETER' THE 
AD). 

NOTION IS AN EXPRESSION INVOLVING CONCATEN- 
AIR OF PARENTHESES SURROUNDS THE PARAMETER* 
FEKFORyED BEFORE THE NEXT PARAMETER IS 
"*"*REAU)* THE PROBLEM MENTIONED 

Is AVOIDED* SINCE THE FIRST PARAMETER 
ECONO READ IS PERFORMED* AND THE RIGHT 
E FIRST READ. 

ivaLent to "", 



• 

m 
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5,3, FUNCTION CALLS, 



<FCT CALL> 
<FCT NAME> 

<paRams> 



J = 



<FCT NaMEX <PARAMS> ) 

<identifier> 
<expression> 

<PARAMS> * <ExPRESSION> 



• 

# 



FUNCTION CALLi> ARE USED TO CALL FUNCTIONS. SN0B0l3 PRE-DEFINES 
A LARGE NUMBER OF FUNCTIONS (SEE SECTION 9)* AND PROGRAMMERS CAN 
DEFINE OTHERS CODED In SnoBQL ^SEE THE FU^cTICN DEFInEO In SEC, 9 
AND THE -DEFINE CARD IN SEC. 2.2). 

THERE ARE THREE SASIC REaSONS FOR CALLING A FUNCTION; 



n TO CAi-CULATE t^^O ReTURN a VaLUE. 

2) To TEST A CONDITION* AND SUCCEED OR FAIL. 

i) TO Cause "Side efffcts"--that js* to alter global 

THAT IS to be used BY OTHER PARTS OF THE PROGRAM* 
input or OUTPUT. 



INFORMATION 
OR TO DO 



A SNOBOl FUNCTION CAN DO ANY COMBINATION OF THESE THINGS, 

THE Latter is especially easy in snobol* since a program-oefined 
Function has access to any variables in the program that are not 
explicitly declared to Be local to it (the list of formal parameters 

AND local variables^. THIS MEANS ESPECIALLY THAT A FUNCTION GENERALLY 



• 



\m 



m 



# 



1192000 
1193000 
119^000 
1195000 
119A000 
J 197000 
U98000 
1 199000 

i^eooooo 

1201000 
120 2000 
1203000 
1204000 
1205000 
1206000 
120/000 
1209000 
1209000 

1210000 
1211000 
1212000 
1213000 

isYaooo' 

1215000 
1216000 
1217000 
1218000 
1219000 
1220000 
1221000 
1222000 
1223000 

1224000 
122b000 
1226000 
1227000 
1228000 
1229000 
1230000 
1231000 
1 2 32000 
1233000 
1234000 
1235000 
12 36000 
12.37000 
1238000 
1239000 
12^0000 
1241000 
1242000 
1243000 
1244000 
1245000 
1246000 
1247000 
12aHOO0 



HAS ACCE-SS TU Ai\Y UF jHt DATA IN USE 8Y THE PIECE OF CODE THAT CALLED 
IT. WHICH MAY ITSEUF BE PART QF A H I GHER^LEVEt FUNCTION, 

FOR DETAILS OF WHAT HAPPENS wHEN A USER-DEFlNED FUNCTION IS 
CALLED. 5EF SECTIOI^ 3.2. SOMf SPECIAL DETAILS CONCERNING THE CALL 
ITSELF ARE: 



1) 



2) 



3) 



THE " 

IS A 

CDNCA 
OMITT 

uated 

FC 

In th 

IF TH 
CO MM I 
BE SU 
MODE. 
NAME 

Job W 



C" MUSj 
BLANK B 

tenatio 

ED PARA 
BUT NQ 

CA'.O'C 

E sECON 
E FUNCT 

tted a 

SPENOED 
A MESS 
WILL BE 
ILL BE 



APPL 
ETWEE 

N OF 
METER 
T PAo 

EX A 
ION « 
FATAL 

WITH 
AGE G 

PR IN 
TERl^l 



AR IM 
N THE 
A STR 
S ARE 
SED T 
= F 
s M 

MPlE; 
EING 
ERRO 
AN E 
IVINS 
TED 
NATED 



MEDIATELY AFTER THE FUNCTION NAME. IF THERE 

M, The compiler will interpret n as the 

ING WITH A GROUPING. 



NULL 
THE 



STRINGS. 

FUNCTION, 



EXTRA PARAMETERS 
FOR example: 



ARE EVAL- 



X) 



Wf A»""*B»C."") 

THE LAST COMMA IS NOT NEEDED, 
CALLED IS NOT DEFINED. THE PROGRa^ HaS 
R, IF IN DEBUG MODE. THE PROGRAM WiLL 
XPLANATGRY MESSAGE. IF NOT IN DEBUG 

THE STATEMENT NUMBER AND THE FUNCTION 
N THE LINE PRINTER AND TELETYPE. AND THE 

ABNORMALLY, 



• 



SOME EXAMPLES OF FUNCTION CALLS ARE' 

MVC"A",B L. C"^" X ".") ) 

ARRGHCB " " XI. "CARD") 

LEVELO 

.NEC A. "375") 

EQUALSCS.TR.RES) 

NOTE ESPECIALLY THE FOLLOWING: 



FCA) 
F CA) 
FCR ",", 

F CB "." 



" 1 " ) 
."1") 



IS A FUNCTION CALL, 

IS A CONCATENATION, 

IS A FUNCTION CALL, 

IS A SYNTAX ERROR. (WHY?) 



• 
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5.4, ARITHMETIC. 

<ARtTH rXPR> 

<A-TERM> 

<E-TERM> 
<ARItH elt> 

<ADD 0P> 
<MUL 0P> 



<a-term> 

- <A-TERM> 

<A-TERM> <add ap> 

<M-TERM> 

<M-TERM> <MUL 0P> 

<E-TERM> 

<e-'term> <exp 0p> 
<aRith elt> 
<named expr> 

<GR0UPING> 
<FCT CALL> 
<Ll rERAL> 

+ 



* 



<M-TERM> 
<E-TERM> 
<ARnH ELT> 



Kg 

m 

m 
# 



m 
• 



• 



1249000 
1250000 

1251000 
12^52000 
12=33000 
1?5'4000 
1255000 
1256000 
1257000 
1258000 
1259000 
3260000 
1261000 

4 r^ jr '^ »% rt ^ 

J, (iOiJtJlUJ 

1263000 
126^000 
1265000 
1266000 
126/000 
1268000 
1269000 
1270000 

1271000 
1272000 

1273000 
1274000 
1275000 
1276000 
1277000 
1278000 
1279000 

1230000 
1281000 
1282000 
1283000 
1234000 
1.2B5000 
1286000 

1287000 
1288000 
1289000 
1290000 
1291000 
1292000 
1293000 

1294000 
1295000 
1296000 
1297000 
1298000 
1299000 
1300000 
1301000 
1302000 
1 303000 
1304000 
1305000 



<EXP ap> 






A NUMBtH IN SN0HUL3 IS A STRING WHICH CONSISTS ONLY OF DIGITS, 
WITH THE POSSIBLE EiXCFPTlUN OF THE FIRST CHARACTER WHICH CAN BE "«" 
ON[.Y INTEGER AHITHMtTiC IS PRGVIOED IN SNOBOl.3. SOME EXAMPUES 
OF NUMERIC STRINGS ARE: 



"12" = "00012" 
"-,3»» = "-0000000 3" 
"0" = "0000" s "-0' 



— •• ■• tf 



SOME IMPlEMEi^TATIONS of SN0B0L3 INSIST THAT ARITHMETIC BE FULLY 



«'\ l:,r\ I tic. .■> A /^ C-i.' ' 



THib 



NECESSARY ON THE &5500* 



THOUGH USING 



UnPARENTHESIZED ARITHMETIC MAY MAkE A 85500 SN0B0L3 PROGRAM 
INCOMPATIBLE WITH ANOTHER IMPLEMENTATION. THE PRECEDENCE RELATIONS 
ARE BASICALLY THOSE Of KQrTRAN OR ALGOL* WITH THE RANKING: 



EXPONENTIATION 
MULTIPLICATION* DIVISION 
ADDITION* SUBTRACTION 
CHNCATENATION 



* III 



BLANKS 



(HIGH) 



(LOW) 



AMONG OPERATORS IJF EQUAL PRECEDENCE* LEFT- ASSUC I AT I ON IS USED, 
ARITHMETIC EXPRESSIONS* WITH PARENTHESISED EQUIVALENTS* AREl 

= C(A + B) - C) 

= ((A / 8) * C) 

= (A - CB X O) 

= (- CX / R)) 

= (A X (B ** "2")) 

= (AL (AR - AM)) 

= (CC + I) *'0") 

= ((P ** Q) ** R) 



SOME 






A + B 


- C 


A / H 


* c 


A - M 


X C 


- X / 


R 


A X B 


** "2" 


AL AR 


- AM 


C + I 


"0" 


p ** Q ** R 



= p ** (Q X R3 



m 
m 
m 
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5.4.1, DIVISION MODES, 

THE B5500 HAS THKEE WAYS TO HANDLE DIVISION* DEPENDING QW HOW 
REMAINDERS ARE TREATED, THE METHOD USED IS SET BY THE FUNCTION 
MOOE( )» AS follows: 

MOnEC'ROuND") CAUSES DIVISION TO BE ROuNDED, 
MOnE("TRUNCArION") CAUSES REMAINDERS TO BE DISCARDED. 
McDEC'InTEGEr") causes DIVISION TO FaIL IF THE REMAINDER X 0, 

THE SYSTEM ASSUMES ROUNDING UNLESS MQOEO IS USED* SINCE THAT IS 
How THE HARDWARE OPERATES* AND IS FASTEST. SOME EXAMPLES OF THE 
DIFFERENCES BtTWEE^ THE THRfE ARE? 

EXPRESSION 
'• 4 '♦ / »♦ 2 " 
"5" / "2" 
"5" / "3" 
"12" / " 4 " 



ROUNDED 


TRUNCATED 


INTEGER 


*'2" 


M 2" 


"2" 


" 3" 


112" 


FAILS 


•1 2" 


»• t It 


FAILS 


t» 3 tf 


•♦3" 


"3" 



m 
m 
m 



m 
m 






" I 4 « / " Z( " 

"l5" / "4" 
V « 3 »t / »»;?»» 

"9" / "-6" 
"-5" / "3" 



"3" 

••4" 

"-2" 
»• <• 2 " 

"-2" 



"3" 

ft •• ] ft 



FAILS 
FAILS 
FAILS 
FAILS 
FAILS 
FAILS 
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"5.4,2. FAILURE OF ARITHMETIC* 



1) 



2) 



3) 

4) 



A NOn-NuMERIC ARGUMENT. A STRING IS NUMERIC IF ITS FIRST CHAR- 
ACTER IS "-" QH A DIGIT AND ALL OTHER CHARACTERS a^E DIGITS. 
BCjH "" AND "-" ARE NUMERIC* AND BOTH EQUAL ZERO, 

A DUMBER OCCURS ^^HOSE MAGNITUDE IS GREATER THAN 2**39-1* THE LARGEST 
INTEGER THAT THE 85500 CAN HANDLE. THE DECIMAL VALUE OF THIS 
NUMBER IS 549*755*813*887, 
DIVISION 8Y ZERO. 

THE DIVISION MODE IS "INTEGER" AND DIVISION PRODUCES A NON-ZERO 
REMAINDER. 



1306000 
1307000 
1308000 
1309000 
1310000 
1311000 
1312000 
1313000 
1314000 
1315000 
1316000 
1317000 
1318000 THE FGtLf^'^lNG COnDHIonS Wl^t CAUSE FAIlURE OF AN ARITHMETIC 

1319000 Expression: 

1320000 
1321000 
1322000 
1323000 
1324000 
1325000 
1326000 
1327000 

1326000 
1329000 

1330000 
1331000 
1332000 
1333000 
1334000 

1335000 
1336000 
1337000 
1338000 
1339000 
13/; 0000 
134 1000 
1342000 
1343000 
1344000 
1345000 

1346000 
134 7000 

1348000 
1349000 

1350000 
1351000 
1352000 
1353000 
1354000 

1355000 
1356000 

1357000 
1358000 
1359000 
1360000 
1361000 
1362000 






• 
• 
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5,'4.3, ARITHMETIC 



FUNCTIONS, 



THIS SECTION OESCRigES A NUMBER OF FUNCTIONS PRE-DEFInED BY 
SNOBCL WHICH ARE USED WITH NUM9ERS. ALL OF THESE FUNCTIONS WILL 
FAIL IF A NON-NUMERIC PARAMETER IS GIVEN THEM. 

.Ea(A*B) SUCCEEDS IF A AND B REPRESENT THE SAME INTEGER. THIS 
FUNCTION SHOULD BE COMPARED Y,ljH EQUALS(A*b)* WHICH DOES A 
STRING cQ'^fARE. SOME EXAMPLES SHOEING THe DIFFeHENCES AR^; 



.EQ("1"*"01") 
,£Q( "00»t* ttt. ) 
.EQ("A"*"A") 
.rQC"7"*"7'M 



SUCCEEDS 
SUCCEEDS 

FAILS 
SUCCEEDS 



£QUALS£"i''*"or') Fails 
EguAL5C"00"*"'») Fails 

EQbALS("A"*"A") SUCCELOS 
EqUALSC"7"*"7") SUCCEEDS 



.eO() always Returns a null value* as do the following! 



.NECA*B) 

.LTCA*B) 
,LE(A*B) 

.GT(A*B) 
.GEC A*B) 



SUCCEEDS 
SUCCEEDS 
SUCCEEDS 

SUCCEEDS 
SUCCEEDS 



IF 
IF 

IF 

U' 
IF 



< 

< 

> 
> 



B, 
B. 

B. 
8. 
B. 



.NUMCA) SUCCEEDS IF A IS NUMERIC. 

.REMDRfA'B) RETURNS THE REMAINDER OF A / B, 
A - C ( A / B ) X n ) 

I'JHERF THE DIVISION IS TRUNCATED, 



THIS IS DEFINED AS; 



m 



m 



m 
# 
# 



rJ63000 
1364000 
1365000 
1366000 
1367000 
1368000 
136<J000 
1370000 

I37IOOO 
.1372000 

1373000 
1374000 
1375000 
1376000 
1377000 
.137 8.000 
1379000 
1380000 
.13.8.1000 
1382000 
13B3000 

138-aooo 

13P§000 
1386000 
1397000 
1386000 
1369000 
1390000 
1391000 
1392000 
1393000 
1394000 
1395000 
1396000 

1397000 
1398000 

1399000 
UO6666 

Uoiooo 

U02000 
1403000 
UOAOOO 
,1405000 
1466000 
1407000 

lAOaOOO 
1409000 

1^*10000 
14U0OO 
1412000 
1^13000 
14 14000 
14lb000" 
1416000 

1417000 
1418000 
1419000 



WILL 
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5.4.4, ADDITIONAL COMMEMS ON ARITHMETIC. 

THERE ARE TWQ WAYo TO INDICATE MULT I PL I cAT 10r^» WITH "*" QR 
WITH "X". WHEN USED IN A PATTERN OUTSIDE OF PARENTHESES, "*" 
ALWAYS BE ASSUMED TO BE A STRING VARIABLE ASTERISK* SO EITHER 
"x" OR PARENTHESES SHqUlD BE USED IF MULTIPLICATION IS DESIRED. 
ALSO* IF "**" APPEARS OUTSIDE DF PARENTHESES IN A PATTERN, IT WILL 
BF. AN UivNAMED ARBITRARY STRING VARIABLE* NOT EXPONENTIATION. 

NOTE THAT THE ONLY UNARY ARITHMETIC OPERATOR IS "-". 

BLANKS ARE NOT NEEDED AROUND ARITHMETIC OPERATORS IN B55Q0 
SNn3nL3, u^JLlKE IN MANY OtHER IMPLEMENTATIONS OF THE LANGUAGE. 
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6. PATTERNS,. 



i 
« 
i 
• 
• 



<patteRn> 



<STR VAR> 



<ARB 



.VAR> 
VAR> 



t- 



<PATTERN> 
<BACK REF> 



VAR> 



<BAL 

'<FIXED-LFNGTH VAR> 

,<BACK .REF> : : = 

PROBABLY THE MOST 
PATTERN* WHICH IS USF 
Tn CERTAIN PROPERTIES 
Is MADE UP OF A LIST 
"M/iTCH" A PART OF A S 
THE PATTERN ELEMENT. 

ELEMENTS Matches a su 

,In OTHER WQROS, THE P 

LEFT TO Right* and ea 
starts just after the 
the basic pattern 
Variables' qv thV-^ee ty 

AND BACK references. 

THESE Pattern element 



<element> 
<str var> 
<pattern> 
<pattern> 

<AR8 VAR> 
<BAL VAR> 

<fixed-length 

** 

* <NAMEO EXPR> * 

*{ )* 

*( <NAMEO EXPR> )* 
j;= */ <EXPRESSI0N> 
: ;= * <NAMED EXPR> 

<NAMED EXPR> 



• 
• 



/ <EXPRESSiaN> * 



IMPORTANT PART QF A SNOBOL 
TO IDENTIFY AND ALTER PAH 

OF THE STRINGS BEING EXAMI 
OF "PATTERN ELEMENTS"* EACH 
TRING IF THAT PART HAS THE 

A PATTERN ^aLL MATCH A STR 
6STRING* AND THE NIaTCHED SU 
ATTERN IS MATCHED QNE ElEME 
Ch PATTERN ELEMENT MUST MAT 

substring matched by the p 
Elements defined in snobols 

PES (ARBITRARY* BAlAnCED* A 
the FOLLOlviNG SUB-SECTlUNS 
S IN DETAIL, 



INSTRUCTION IS THE 

TS OF STRINGS ACCORDING 

NED, A PATTERN 

OF WHICH WILL 
PROPERTY DESCRIBED BY 
ING IF EACH OF ITS 
8STRIN6S ARE ADJACENT. 
NT AT A TIME* FROM 
Ch a SUBSTRING THAT 
REVIOUS ELEMENT, 

ARE CONSTANTS* STRING 
ND FIXED-lEnGTH)* 

DESCRIBE EACH OF 
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6.1, CONSTANT PATTERN ELEMENTS. 

A "CONSTANT" PATTERN ElEmEnT IS ONE WHICH WIll MATCH qnlY OnE 
STRING, THAT IS^ IT IS AN ELEMENT WHICH EVALUATES TO A STRING OF 



:# 



m 



u?oooo 

14?1000 
1422000 
1423000 
1424000 
1425000 
1 426000 
1427000 
1428000 
1429000 
1430000 
1431000 
1432000 

H33000 
1434000 
14 35000 
14 36000 
1437000 
14 38000 
1439000 
1440000 
144.1000 

1442000 
1443000 

1444000 
1445000 

1446000 
1447000 
1448000 
1449000 
1450000 
1451000 
1452000 
1^53000 
1434000 
1455000 
1456000 
1457000 
1458000 
1459000 
1460000 
1461000 

1462000 
1463000 

1464000 
1465000 
1466000 
1467000 

1468000 

1469000 
1470000 

1471000 
1472000 
1473000 

1474000 
1475000 
1476000 



CHaRaCTF'^S. AMD IT -NlLL MaTcH ONLY THAT STRING, EXAMPLES OF CONSTANT 

PATTERN Elements are literals, string names. Function calls, and 

ANY OTHER STRINq-VALUED EXPRESSION, pQR EXAMPLE* ThE PATTERN 
A "+" (B C) 

CONSISTS or THREE CUNSTANT PATTERN ELEMENTS* A* "+", AND (d C), 
IF A = "IS", 8 = "3'S AND C = "K"* THEN THIS PATTERN WILL MATCH 
THE STRING "IS + 3K". IF EXP - "SQRT< S ) = I S+3K- J", THEN THE RULE 



FxP 



(B C) 



WILL SUCCEED, WITH THE PATTERN 
ACTER OF THE STRING REFERENCE, 



MATCHING STARTING AT THE 9TH CHAR- 



i 

i 

m 
m 
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6,2, STRING VARIABLES, 

A STRING VARIABLE IS A PATTERN ELEMENT WHICH WILL MATCH MORE THAN 
One STRING, DEPENDING ON THE PRoPERflES OF THE STRInG. THERE ARE 
THREE TYPES IN SNOBOL3! "ARBITRARY", "BALANCED", AND "F I XED-LENGTH" . 
SEPARATE SUii3-SF:CTIONiS BELqW ARE OEVqTED Tq EACH TYPEt THIS SECTlQN 
DESCRIBES SOME PROPERTIES COMMON TO ALL TYPES OF STRING VARIABLES. 

A STRING VARIABLE CaI^ BE "NAMED" OR "UNNAMED", A NAMED VARIABLE 
Is ONE WHICH CONTAINS A <NAMFD EXPR> (SEE THE BNF DEFINITIONS). 
BOTH FORMS AcT THE SAME DURING A PATTERN MATcH; THE DIFFERENCE IS 
THAT IF THE PATTuRN MATCH IS SUCCESSFUL, THE STRING NAMED 8y THE 
THE STRjNG VARjABlES ARE ASSIGNED THE MATCHED SUBSTRINGS AS NEW 
VAI.UES, FOR EXAMPLE, IF X = "1234567", THEN THE RULE 

X "2" ** "5" 

WILL SIMPLi' SUCCEED ANQ HaVE NO SIDE-EFfECT* WHILE 



X 



* I * " 5 " 



WjLL SUCCEED AND AbSiGN TO i THE VALUE "34", WHjCH jS THE SUBSTRING 
MATCHED BY THE STRING VARIABLE *I*. 

THE ASSIGNMENT OF STRING VARIABLE VALUES IS CARRIED OUT IMMEDIATELY 
AFTER THE PATTERN MATCH, BEFqrE THE REPLACEMENT PART (IF ANY) IS 

evaluated/ so the new values will be used if the string variable 

Names appear in the Replacement, for example* if l * "a*ln, aR,xyz,cb," 

THEN THE RULE 



• 



L 



*R* 



* s* 



*■ HPLCR,S) 



WILL Do A PATTERN MATCH (WHICH WIll SUCCEED), SET R * "LN"* SET 

S 5 "AR", AND THEN CALL RPL ( "LN", "AR" ) , WHOSE VALUE WILL THEN REPLACE 

THE MATCHED SUR-STRING ",LN,AR'", 

THERE MAY BE SEVERAL STRING VARIABLES WITH THE SAME NAME. THE 
ASSIGNMENTS ARE CARRIED OUT IN A STRICT LEFT-T 0-R I GHT ORDER* SO 
EACH STRING WILL END UP wItH THE LAST VALUE ASSIGNED TO IT» FOR 
EXAMPLF, WITH L AS ABOVE' THE >^ULf 



• 



*X* 



*x* 



*x* 



" , ft 



• 



m 



1477000 
1/476000 
1^79000 
1A80000 

lapiooo 

1^83000 
1484000 
1 485000 
1486000 

14 8 7 00 
1468000 

14B9000 
1490000 
14Q1000 
1492000 
1493000 
1494000 
1495000 
1496000 
1497000 
1498000 

1499000 
1500000 

1501000 
1502000 

1503000 
1504000 

i^oSooo 

1506000 
1507000 
1508000 
1509000 
1510000 
151 1000 
15.12000 
1513000 

1514000 
1515000 
1516000 
1517000 
1518000 
1519000 
1520000 
15P1000 
1522000 

1^23000 
15?4000 
1525000 
1526000 
1527000 
1528000 
1529000 
1530000 
1531000 
1532000 
1533000 



WILL SUCCEED An;C GIVE X THE VALUES "LN"* 
VALUE* "XYZ''* WOULD f3E THE VALUE OF X AT 
If" X WERE AN OUTPUT STRING* OUTPUT WOULD 
DURING THIS RULE. 
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6,2.1, ARBITRARY STRING VARIABLES. 



"ar"* and "xyz". the last 
the end of the instruction. 
Occur three times 



<ARB VAR> 



** 



* <NAMED EXPR> * 



AN ARBITRARY STRING VARIABLE WILL MATCH ANY STRING (INCLUDING 
THE NULL STRING). AT THE BEGINNING OF A PATTERN (THE LEFT ENOD* 
AN ARBITRARY VARIaBlE MATCHES THE LEFT END OF THE STRING REFERENCE* 
AT THE RIGHT END OF A PATTERN* IT MATCHES THE "REST" OF THE STRING 
REFERENCE. FOR EXAMt^LE* IF SENT = "WHEN I SAW HER "* THEN 



SENT 
SUCCEED* 



*A* 



*B* 



*C* 



AND ASSIGN A * "WHEN"* B = "I"* AND C s "SAW HER 



WILL 

NOTE ESPECIALLY THAT AN ARBITRARY STRINq VARIABLE !«ILL MATCH A NULL 

STRING IF POSSIBLE* SO FOR EXAMPLE* IF X = "++"* THEN 

X *I* »+" *J* "+" 



WILL SUCCEED AND SET BOTH I anD J TQ "". 

IF SEVERAL ARBITRARY STRING VARIABLES ARE ADJACENT TO 
ALL BUT THE LAST CNt WILL ALWAYS MATCH THE NULL STRING, 
OF A USL FOR THIS Is: 



• 

• 

• 



EACH OTHER* 
AN EXAMPLE 



STR *V* 



* * 



THIS INSTRUCTION WILL SEARCH 
ONF, IT WILL SET V TO NULL. 
B AND SIMULTANEOUSLY SET I* J^ 
STAlEMFNT COULD BE USED: 



STR FOR A MINUS SIGN* AND IF IT FINDS 
FOR ANOTHER EXAMPLE* TO ASSIGN A TO 
K* L» AND M NULL' THE FOLLOWING 






A *I* *j* *K* *L* *M* *8* 

THF GENERAL RULF FOH MATCHING AN ARBITRARY VARIABLE ISS 

U MATCH THE PRECEDING ELEMENT* IF THERE IS ONE* AS FAR TO THE 
LEFT AS POSSIBLE. 

2) MATCH THE FOLLOWING ELEMENT* IF THERE IS ONE* AS CLOSE AFTER 
THF PRECEDING ClNt AS POSSIBLE. 

3) THE ARBITRARY VARIABLE THEN MATCHES EVERYTHING BETWEEN THE STRINGS 
MATCHED BY THE SURROUNDING ELEMENTS* OR IF EITHER OF THESE IS 
MISSING* THE VARIABLE EXTENDS TO THE APPROPRIATE END OF fHE STRING, 
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6.2.2. BALANCED STRING VARIABLES. 



• 
# 



<BAL VAR> 



*( )* 



• 
• 



• 



lb3^000 
1535000 
1536000 
1537000 
1536000 
153V000 
15':i0000 
15^11000 
1542000 
1543000 
154/4000 
15ij5000 
1546000 
1547000 
1548000 
1549000 

1550000 

1551000 

15t>2000 

1553000 

1554000 

1555000 

J556000 

1557000 

1558000 

1559000 

1560000 

1561000 

1562000 

1563000 

1564000 

1565000 

1566000 

1567000 

1568000 

1569000 

1570000 

1571000 

1572000 

1573000 

1574000 

1575000 

1576000 

1577000 

1578000 

1579000 

1580000 
1581000 

1582000 
1583000 
1584000 
1585000 
1586000 
1587000 
1588000 
1589000 
1590000 



*C <NAMED EXPR> )* 



i 

i 



A BALANCED STRING VARIABLE 
AMD HAS BALANCtO P AKEN'THEsE S. 
OF RIf5HT P<\RFnTH(;ScS AS THERE 
UP EITHER)* ANU THE 
VA9IAPLE ^^'ILL MATCH 



WILL MATCH ANY STRING WHICH IS NON-NULL 
THAT IS, THERE MUST BE THE SAME NUMBER 

ARE LEFT PARENTHESES (POSSIBLY NONE 
FIRST PARENTHESIS MUST BE A "(", THUS A BALANCED 
ANY OF THE FOLLCk^ING' 



"aBCD" 



" () " 

"ACBlmX)+D" 

"A + (fi - O" 

"CF(1«2) + (ALPHA ** 2))" 

"HESAID (VERY SOFTLY)'tHAT " 

"((())(()))(()(()))" 

A Balanced variable will not match any ofj 

fi f n 

" ) C " 

"A + B )" 
" ( A ) ) " 

"VERY SOFTLY) THAT " 

" ) + (A - M) " 



• 



UNLIkE ARBITRARY STRING VARIABLES* 
EXTENDED TG THE RlGriT WHEN THEY END A 
OF A PATTERN THEY EXTEND AS FAR LEFT 



BALANCED VARIABLES ARE NOT 
PATTERN* THOUGH AT THE START 
AS POSSIBLE. FOR EXAMPLE, IF 



EXPR 



"(A + CLIM{P/Q,0,1)-SIN(LN(1-ALPH)) )xC 2**,\) x3 )-N" 



THEN THE RULE 

EXPR *CL)* "x" *(R)* 






WjLL SUCCEED, AND 
AND R = "(2**N)", 
WILL NOT 
WOULD BE 



SET L = "A+(LiM(P/Q,Q,i)-SiN(LN(1-ALPh)))"» 
L WILL INCLUDE THE INITIAL "A+w, BUT R 
BE EXTENDED TO INCLUDE THE "x3"* THOUGH ♦•(2**N)X3" 
A VALID MATCH FOR A BALANCED VARIABLE. 



«CP 30 
6,2.3. 



FIxED-LEnGtH STRING VARIABLES. 
<FIXEO-LENGTri VAR> : : 



*/ <EXPRESSION> 
* <NAMED EXPR> 



/ <EXPRESSI0N> * 



ANY STRING 
BE NUMERIC 



WITH A GIVEN 
AND NON- 



A FTXEO-lENGTH STRING VARIABlE WILL MATCH 
NUMBER OF CHARACTERS. THE <EXPrESSION> MUST 

negative* of? the pattern will fail during evaluation and the pattern 
Match will not take place, one sort qf use of a fixed-length variable 

IS to PICK OFF initial STRINGS, USUALLY ONE CHARACTERS 



STR *CH/'n"* = 



/F(OUT) 



# 



H 






m 



• 



• 
m 






1591000 
1592000 
1593000 
1594000 
1595000 
1596000 
1597000 
1598000 
1599000 
1600000 
1601000 

1602000 
1.60 3.0.00 
160'4000 
1605000 
16-06000. 
1607000 
16OBO00 
1.609Q00 
1610000 
16U000 
. 161,200.0 
1613000- 
1616000 
1615000 
1616000 
1617000 
1638000 
1619000 
1620000 
1621000 
1622000 
1623000 
.16,2.4000 
1625000 
1626000 
1627000 
1628000 
1629000 
1630000 
1631000 
1632000 
1633000 

16 34000 
16 35000 
1636000 
1637000 
1638000 

1639000 
1640000 
1641000 
16 4 2 000 
1643000 
1644000 
1645000 
1646000 
1647000 



THIS WILL ASSIGN TO CH THE FIRST CHARACTER OF STR AND OELETt THAT 
CHARACTER FROM STR. IF STR IS NULL* THE STATEMENT WILL FAIL AND 
TRA-NSFER to OUT. FGR ANOTHER EXAMPLE* TO GET THE LAST N CHARACTERS 
OF A STRING S: 

"^ */SIZFCS)-N* *TAIL* /FCTOO, SMALL) 

THE UNNAMED FIXED-lCNGTH VARIaBlE WILL MATCH ALL BUT THE LAST N 
CHARACTERS OF.S* AND THE ARBITRARY VARIABLE WILL GET THf LAST N. 
IF S HAS FE'^F.R THaN N CHARACTERS* THE FiXfD-LENGTH VARIABLE WILL 
HAVE A NEGATIVE LENGTH* AND WILL FAIL DURING EVALUATION OF THE PATTERN, 
NOTE. THAT THE FIHST IIXaMPLE ABOVE COULD BE WRITTEN: 



STR *CH/"r' *STR* 



%CF -30- 

6,3, BACK REFERENCES. 



/FCOUT) 



i 

i 

i 
i 

m 
« 



ANOTHER TYPE OF PaTTERN ELEMENT IS THE "BACK ReFFRENcF". THIS 
Is A STRING NAME WHICH IS THE SAME AS THE NAME OF A PREVIOUS STRING 
VARIABLE. A BACK REFERENCE WJLL MATCH A STRING WHICH IS lUtNTlCAL 
TQ THE..S,.T,R.I,iMG MATCHED 9Y THf STRING VARIABLE, FOR EXAMPLE* IN 



*H* 



THE BACK REFERENCE* H, MUST MATCH THE SaME STRING AS THE ARBITRARY 
VARIABLE* *i^** IF X = "ABE8CA"* THE RULE WILL SUCCEED AND SET H = "B", 
SIMILARLY* IF EXP IS AN ALGEBRAIC EXPRESSION* THEN 



EXP *CP)* ** P 



:F(N0NE) 



• 
• 



WILL Lf30K FOR A SUB-EXPRESSION THAT OCCURS TWICE* AND IF THERE ARE 
NONE* IT WILL TRANSFER TO NONE. 

THERE CA.N BE SEVERAL BACK REFERENCES TO THE SAME STRING VARIABLE, 

Each such back reference must match the Same string, fqr example 

. X •S/"l"* s s 

WILL Succeed only if x contains three consecutive identical characters, 
jF There are several strjNq variables wjth the same name* a back 

reference will match the last such VARIABLE THAT PRECEDES IT, FOR 

Example, the rule 



AL *X* 



*x* 



WILL SUCCEED FOR THE STRING AL = "AB CD CDEF'S AND SET X = "CD", THE 
FIRST STRING VaRIaBuF 'aILL MaTCH THE STRING "AB". 
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6.4, PATTERN MATCH MODES, 

NORMALLY, A PATTERN WILL MATCH ANYWHERE IN THE STRING REFERENCE 
THAT IT FINDS AN APPROPRIATE SUB-STRING, SOMETIMES IT IS DESIRABLE TO 



m 
m 



\m 



m 
m 
m 






6<:i8000 
6/49000 
650000 
651000 

6'32000 
^53000 
65^1000 
655000 
656000 
657*000 
658000 
659000 
6 6 0000 
661000 
662000 
6630Q0 
664000 
665000 

666000 
667000 
668000 
669000 

670000 
671000 

6/2000 
673000 
674000 
675000 
676000 
677000 
678000 
679000 
680000 
6B1000 
682000 
6 p 3000 

6R4000 
6 8 5000 
686000 
687000 
686000 
689000 
690000 
691000 
692000 
693000 
694000 
695000 
696000 
697000 
696000 
699000 

700000 
701000 

702000 

703000 

704000 



FORC 
5TRI 

Is c 

ARE 

T 
AkiCH 
SWIT 
THE 
CAN 
ANCH 

In t 

CAUS 
MODE 



E THE 
NG RE 
ALLED 

CALuE 

HERE 
CRED' 
CH AT 

SWITC 
BE CA 
ORC) 

C BE 
ES jT 
C) IS 



I u o n u 



patte 

FEFxEnC 

"ANCH 

D "UNA 

ARE TW 

ONE 

CAUSE 

H SO T 

NCELEO 

AND UN 

ANCHOR 

S PATT 

NOT U 

W THE 



R M T u 
E. A 
OREO" 
NCHOK 
MET 

S ALL 
HAT P 

FOR 
ANCHC 
tO, H 
ERN ! 
oED^ 
DIFEE 



MA 
PA 

» 

ED" 

HOD 
US 
PA 

ATT 

A S 

). 

M 

n 8 
sno 

REN 



TCH STARTING AT THE FI 
TTERN THAT CAN ONLY MA 
PATTERNS THAT CAN MATC 



RST CHARACTER Of THE 

TCH AN Initial sub-string 

H ANYWHERE (THE USUAL KIND) 



m 
m 



S OF 
ING T 
TTERN 
ERNS 
INGLE 
ANCH 
aTTER 
E UNA 

bol a 

CE, S 



indicatin 

HE MODE F 
S TO BE A 
ARE UNANC 

INSTRUCT 
ORO CAUS 

WHAT THE 
NCHOREO, 
SSUMES TH 
UPPCSE TH 



G wHEtHE 

unctignj 
nchored; 

HORED. 
ION BY U 
ES THE I 
MODE IS 
NO MATTE 
AT THE M 
AT E = " 



H OR NOT A PATTERN Is TO 
MODECAnCHOR") SETS A 
MDDEC'UNANCH") RESETS 

EITHER OF THESE MODES 

SING THE Functions 

NSTRUCTION THAT IT IS 

SIMILARLY* UNANCHC) 
R WHAT THE MGOt, iF 

ODE IS UNAnCHOHED, 
)CA+8)C", THEN 



BE 






E *CF)* 

WILL SUCCEED* AND SET F = "(A+B)". HOWEVER* THE RULE 

E ANCHORC) *(F)* 

WILL I"AIL* SINCE THE PATTERN IS RESTRICTED TO MATCHING AN INITIAL 
SUBSTRING* AND NO BALANCED STRING CAN START WiTH "}", IF MODE C "ANCHOR" ) 
HAD BEEN CAi_L^D» THEN THE FIRST RUlE. WOULD AuSQ HAVE FAILED. 
FOR ANOTHER EXAMPLE* SUPPOSE X = "ABCDE", THEN THE RULE 

X "C" *l* 

WILL Succeed cjf jHe mode is unanchored), and set i = "de". but 

The ANCHORED RULE: 

X ANCHGRC) "C" *I* 
WILL FAIL* BECAUSE THE FIRST CHARACTER OF X IS NOT "C. 



m 
m 
m 
m 
m 




*PRINT* 



*PRINT* 



*PRINT* 



SUCCEEDS* THE THREE STRINGS ASSIGNED TO PRINT WILL ALL BE WRITTEN 

ON THE LINE PRINTER. 

FURTHERMORE/ T^E ASSIGNMENT IS DONE IMMEDIATELY AFtER T^E PATTERN 
MATCH, BEFORE THE REPLACEMENT AND GD-TO PARTS ARE EVALUATED* TO ANY 
STRING MAN;LS USED* SAY* BOTH AS A STRING VARIABLE NAME AND IN THE 
REPLACEMENT WILL HAVE THE NEW VALUE WhEN ThE REPLACEMENT iS EVALUATED, 



• 





m 






# 
• 



170bOOO 
1706000 
1707000 
1708000 
1709000 
1710000 
1711000 
1712000 
1713000 
17H000 

1715000 
1716000 

1717000 
17 18000 

1719000 
1720000 
17?1000 
1722000 
17P3000 
1724000 
1725000 
1726000 
1727000 
17?6000 
1729000 
1730000 

1731000 
17 32000 
1733000 
1734000 
1735000 
17 36000 
17 37000 
1738000 
1/39000 
I7it0000 
1741000 

17/42000 
1743000 

1744000 
1745000 
1746000 
1747000 
1746000 
1749000 
1730000 

1751000 
1752000 
1753000 
1754000 
1755000 
1756000 
1757000 
1758000 
1759000 
1760000 
1761000 






FOR EXAMPLE* IK AST = "XZ.Ad'% THEN IN THE RULE 



AST "." *L* 



ft ft 



DBLCI^L) 



THF Value passe.d to the second parameter of dblo will be "ab". 

A RAtHEK iNTF-RESriNG SI TUATI ON OCCURS WHEN THE STRING REFERENCE 
HAS THE SAME NA.VE AS A STRING VARIABLE. FOR EXAMPLE* THE RULE 



I *I* 



* J* 



WILL FIRST ASSIGN A NEW VALUE TO I* THEN ATTEMPT TO ASSIGN A VALUE TO 
BUT BY THIS TIME* I HAS BEEN CHANGED* AND I tNAS THE STRING REFERENCE, 
THFRF IS CLEARLY NO LONGER ANYTHING MEANINGFUL TO ASSIGN TO J* AND 

SHOULD BE AVOIDED, IN GENERAL* J WOULD BE EXPECTED 
ARBITRARY GARBAGE, A SIMILAR RULE THAT ACHIEVES 

TO Be THE Best meaning of this rule is 



Such instructions 
to contain rather 
WHAT vosT People would assume 






(I) *i* "■♦■" *J* 

In This CASE* THE STRING REFERENCE IS NOT I ITSELF* BUT A GROUPING 

THAT HAS THE SAME VALUE AS I, SINCE THE STRING VARIABLES ARE NO 

LONGER MAMED THE SAME AS THE STRING REFERENCE (THE STRING REFERENCE 
HAS NC NAME AT aLL)^ THL PROBLEM DOESNT ARISE. 

IT Is AT TIMES USEFUL TO HAVE THE LAST STRING VARIABLE IN A 



PATTERN NAMED 
FOLLOWING TWO 

ST *W0* 
SI * W D * 



THE SAME AS THE STRING REFERENCE. 
STATEMENTS ARE EQUIVALENT? 



FOR EXAMPLE* THE 



(f « 
ft ft 



*ST* 



/F(E) 

/FCE) 
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6,6, PATTERN MATCH ALGORITHM, 

THERE ARE USUALLY MANY WAYS FOR A PATTERN MATCH TO SUCCEED, WHEN 
THIS IS TRUE* THERE IS A CLEAR NEED FOR A WAY TO DETERMINE WHICH 
OF THE POSSIBLE MATCHES WILL BE THE ONE CHOSEN BY SNOBOu* SO THE 
PROGRAMMER CAN PREDICT WHAT VALUES WILL BE ASSIGNED TO THE STRING 
VARIABLES AND WHICH SUBSTRING WiLL BE REPLACED. 

AS A GENERAL* INTUITIVE RULE* THE PROGRAMMER SHOULD REMEMBER THAT 
A PATTERN MATCH PROCEEDS FROM LEFj tO RIGHt* AND EACH ELEMENT IS MATCHED 
WITH THe SHORTEST SUBSTRING POSSIBLE CONSISTENT WITH TH£ SUCCESS OF THE 
REST CF THE PATTERN. THAT IS, THE PREFERRED MATCH WILL BE THE ONE 
FOR WHICH AN "EARLIER" PATTERN ELEMENT MATCHES AS FAR LEFT AS POSSIBLE, 

THE GENERAL RULES GOVERNING A PATTERN MATCH ARE« 



m 
m 



1 ) 



2) 
3) 



4) 



TRY TO MATCH IHL FIrST PaTTErN ELEMENT STARTING AT THE FIRST CHAR- 
acter qf the string reference. an arbitrary variable starts 
by Matching the ^-ull string, if this maTch fails* go to step 5. 

IF there are no more ELEMENTS' GO TO STEP 6, 

IF THERE IS A NEXT ELEMENT* TRY TO MATCH IT AT THE CHARACTER 

AFTER THE SUBSTRING MATCHED BY THE PRECEDING ELEMENT, IF THIS 

SUCCEEDS* GU TO STEP 2. 

IF THERE IS NO PREVIOUS ELEMENT* GO TO STEP 5. IF 

THERE IS A PREVIOUS ELEMENT* TRY TO EXTEND IT TO MATCH A LONGER 

STRING ConLY ARBITRARY AnD BALANCED STRING VARIABLES CAN BE 



a 



• 



m 
m 



1762000 
1763000 
176^000 
1765000 
1766000 
1767000 
1768000 

1769000 
1770000 
1771000 
1772000 
1773000 
1/74000 
1775000 
1776000 
1777000 

1778000 
1779000 
1780000 
1781000 
1782000 
17R3000 
1784000 
1785000 
1786000 
1787000 
1788000 
1789000 
1790000 
1791000 
1792000 
1793000 
1794000 
1795000 
1796000 
1797000 
1796000 
1799000 
1800000 
1801000 
1802000 
1803000 

isoaooo 

1605000 
1806000 
1607000 
1808000 
1809000 
181G000 
185 1000 
1812000 
18 J 3000 

1814000 
1815000 
1816000 
1817000 
1818000 



EXTL'NOEID). IF THIS SUCCEEDS* GO BACK TO STEP 3 AND TRY TO RE-MATCH 
THE CURRENT ELEMENT. IF THE EXTENSION CANT BE MADE* GO TO STEP fl. 

5) IF THE PATTERN IS AMCHORED* THE PATTERN MATCH FAILS, IF IT IS 
NOT AMChQREOji THEN TRY TO FIND ANOTHER MATCH FOR THE FIRST ELEMENT 
STARTING AT A LATER CHARACTER. IF ThIS CANT BE DONE* THE MATCH 
FAILS. IF IT CA,\ BE DONE* GO TO STEP 2. 

6) IF THE LAST PATTERN ELEMENT IS AN ARBITRARY VARIABLE* EXTEND IT 

TO Include the rest of the stRIng reference, the pattern match 

HAS SUCCEEDED' aND THE ASSIGNMENT TO THE STRING VaRIaBLE NaMES 
CAN BE .HADE, 






« >- U O I A U p'! 



^PAGE 
7, GO- 



1 
To 



PARTS* LABELS. 



<G0-TO 

<go-to 



PaRT> 

DELIMI rER> 



<GG-T0S> 



<G0-T0 DELIMITeR> 
<BLANiKS> / 



<GQ"TOS> 



<UNC0NDITI0NAL GO 
<SUCCESS GO-TO> 
<FATlURE go-to> 
<label expr> 



<reserved label> 



<CrJMPUTED label> 



: = 



Ta> 



<unconditidnal go-to> 

<SUCCESS gu-tq> 

<FAILURE GC'-T0> 

<SUCCESS GO-TO> <FAILURE GO'"TO> 

<FAILURE GO-Ta> <SUCCESS GO-Tq> 

::= ( <LABEL ExPR> ) 






S{ <LABEl EXPR> 
F( <LABEL EXPR> 
<RESeRVED LA8EL> 
<LA8EL> 

<cqmputed label> 

END 
RETURN 

freturn 

$ <element> 
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7,1 LABELS, 

ANY INSTRUCTION IN A SNQBOL 
A NON-NULL STRING PHECEOInG THE 
FOLLOWS TROM THIS DEFINITION THAT 
THE FIRST CHARACTER OF AN INSTRUCTION 
' ~ ' ASIDE FROM jHE SPECIAL 



PROGRAM CAN BE LABELED. A LABEL 

FIRST Blank of an instruction. 

LABELS cant CONTAIN BLANKS. 

IS A BLANK* THE INSTRUCTION 
CHARACTERS IN COLUMN ONE* THERE 



IS 
IT 
IF 



Is UNLABELED- ... . ... ,.._ ^._,..,^ .._,_ ^ , ., .^^„,.,„ „„^, ,, 

ARE NO RESTRICTIONS ON THf CHARACTERS THAT CAN BE USED IN LABELS. 
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7,2, SIMPLE 



GO-TO PARTS 



THE GO-TO Part of an instruction determines which INSTRUCTION 

TO 3E Executed next, if there is no go-to part* or if the go-to 

Part oOfSNT APPLY WriEN THE INSTRUqTION IS EXECUTED' THEN THE NEXT 

Instruction to be executed is the next one in the program. 



IS 



# 



A— 



# 



1819000 
1820000 
18?1000 
lfl?2000 
1823000 
1824000 
1.625000 
1B26000 
1827000 
.18,28000 
1829000 
1830000 
1.8 31000 
1832000 
1833000 
1.8.3.^00.0. 
1835000 
1836000 
1.8.3 7000 
1836000 
1839000 

iB.aoooo 

18^1000 

lea^ooo 

18^13000 
1944000 
1845000 
1846000 
1847006 
1848000 
1849000 
i '8 5 0000 
1851000 
1852000 
1853000 
1854000 
1855000 
1856000 



- :»tftiGMM:(^^^^^^^^^^^^^ aN080t3 CAM BE EITHER UNCONDITIONAL OR CONDITIONED 

ON THE SUCCESS OR FAILURE OF THE INSTRUCTION, THE GO-TO PART CAN 
BE SET OFF BY EITHER A "/" (WHICH MUST BE PRECEDED BY A BLANK) OR 
A .":", .MANY IMPLEMENTATIOms OF SN0B0L3 ONLY USE THE "/'S USUALLY 
BECAUSE THEIR CHARACTER SETS DONT INCLUDE "J". THE B5500 WILL 
ACCEPT EITHER DELIMITER. 

A SIMPLE GO-TO PART CONSISTS OF A LABEL WITHIN PARENTHESES. 
FOR EXAMPLE! 



BY 



VCD 

5SCX1) 

SF(AX) 

5S.CBY )FCACAIN) 

/FCE)S(BACK) 

/aCBLXGQ) 

/(A+T$) 



TO L", 

THE RULE SUCCEEDED* GO Tq xl". 



THE RULE FAILED* 
SUCCEEDED* GO TO 



MEANS "GO 

MEANS "IF 

MEANS "TF 

MEANS "IF 

TO AGAIN". 

MEANS "IF FAILED* GO TO E* 

MEANS "IF SUCCEEDED* GO TO 

MEANS "GO TO A+T$", 



GO ro Ax". 

BY* OTHERWISE GO 

OTHERWISE GO TO BACK", 
BLXGQ". 



THE B5500 ALLOWS THE USER TO OMIT THE "S" OR "F" ON THE SECOND PART 
WHEN BOTH SUCCESS AND FAILURE EXITS ARE USED, THUS 



• 
• 



. s S C..A ) .C B ) 
/FCL1)CL2) 



MEANS :S(A)F(B) 
MEANS /FCLnSCL2) 



THERE, APE. A FEW RESTRICTIONS ON LABELS THAT CAN BE USED IN A SIMPLE 
GO-TO PART. THESE VARY FROM OHg IMPLEMENTATION TO ANOTHER^ ON THE 

85500 They are: 

1) THE "FiRSf CHARACTER MUST BE A LETTER OR A DIGIT. 

2) THE LABELS CANT CONTAIN PARENTHESES, 

FOR EXAMPLE, THE FOLLOWING LABELS* THOUGH vALlD LABELS* CANT BE 
USED IN SIMPLE GO-TO PARTS: 

' AB) 
+ 25 
$SA 
ABC 2) 



• 



• 



.1BS8000 
1859000 
1860000 
1861000 
1662000 
1863000 
1664000 
1865000 
1866000 
1R6,7000 
1868000 
1869000 
1870000 
1871000 
1872000 
1873000 
3874000 
1875000 



%CP 
7.3, 



20 



RfSeRVeD LABELS. 



THERE .ARE THREE "REsERvED LABELS" tHaT CAN BE USED In sIMPlE 

GO-TO PARTS, THESE ARE NOT REAlLY lABElS* BUT RATHER COMMANDS 
TO PERFORM CERTAIN ACTIONS. THEY ARE; 

END CAUSES THE PROGRAM TO BE TERMINATED NORMALLY, 

RETURN CAUSES A RETURN FROM THE LaST PROGRaMMER-DEF INED FUNCTION 

which was called. the return is successful* 
freturn causes a Return also* but the function fails, 

A program can use return and FRETuRN as LABELS, BUT ThEY CANT BE 
TranSFERFD to by a SIMPLE GO-TO; A COMPUTED GO-TO MUST BE USED, 
IF THE PROGRAMMER DOESNT DEFINE THESE LABELS* THE COMPILER WILL 



• 



• 






# 



18/'6000 
1877000 
187^000 
1R79000 
1800000 
1R81000 
1862000 
1883000 
iBflilOOO 
1885000 

leRi^ooo 

1887000 
1888000 
1689000 
1890000 
1891000 
1892"000 

1893000 
1894000 
1 695000 
1896000 
1897000 
1898000 
1899000 
1900000 
1901000 
1902000 
1903000 

i90^000 
1905000 

1906000 
1907000 
1908000 
1909000 
1910000 
1911000 
191?000 

1913000 
19H000 
1915000 
1916000 
1917000 
1918000 
1919000 
1920000 
19?1000 
I92200O 
1923000 
1924000 
192b000 
1926000 
1927000 
1928000 

1929000 
1930000 

1931000 
1932000 



dffinf; thli^ as follows 



rfturn 

FRFTUR^ 



(RETURN) 
CFF^FTURN) 
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7,4. COMPUTED 



GC-TUS, 



A PROGRAM CAN CClMPuTt THE lABEl THAT AN INSTRUCTION IS TU TRANSFER 
TO BY USING A CD^STRUCT THAT LOOKS EXACTLY LIKE INDIRECTION INSTEAD 
OF A LABEL IN A GOTO PART. THE VALUE OF THE EXPRESSION FOLLOWING 
THE "S" IS THE LABEL TRANSFEREC TO, FOR EXAMPLE* IF X = "1" AND 
Y = "AL'% then: 



/S($("A" X)) 

!FC$Y) 

:SC$(X Y) >FC$(Y X)) 

:($C"M" X "." SIZECY))) 



MEANS /S( Al ) 
MEANS :F(AL) 
MEANS :Sc1AL)F(AL1 ) 
MEANS :(M1.2) 



*CP 15 

7.5, ERRORS IN GQ-TL PARTS. 

THERE APE TWO FATAL ERRORS THAT CAN OCCUR IN A GO-TO PART. IF 
A PROGRAM ATTEMPTS To TRA\SFER TO A LABEL THAT ISnT DEFINED/ THE 
PROGRAM Is TERMINATED ABNORMALLY WItH A MESSAGE GIVING iHE ERROR* 
THE STaTE^^ENT NUMBEf<» A^^D THE ERRONEOUS LABEL, 

IF A COMPUTED GO-TO CONTAINS A FgNCTlON CALL* AND THE FUNCTION 

FAILS* THE PROGRAM IS AGAIN TERMINATED ABNORMALLY* AND A MESSAGE 

IS PRINTED SAYING THAT THE GO-TO PART FaILEO* GIVING THE STATEMENT 

NUMBER. 

OF COURSE* IF THE USER IS USING DEBUG MODE* THE PROGRAM WiLL NOT 

BE TERMINATED. INSTEAD* THE ERROR MESSAGES WILL BE PRINTED ON THE 

LINE PRINTER AND TELETYPE AnD THE PROGRAM WILL BE SUSPENDED. 



^SECTION 8 

%PAGE 1 

8, FAILURE, 

AN Extremely important concept in snobol is that of "failure". 
A Snobol instructioivj can be viewed as a Command to attempt certain 

actions; if the instruction cant be carried out* it is TERMINATED 
aT THE POIMT WHkRE IT HAS TQ BE STOPPED. THE GO-TO PaRT OF AN INST- 
RUCTION PROVIDES THE PROGRAMMER ''^iTh A WAY TO BRANCH ON THE SUCCESS 
OR FAILURE OF THE INSTRUCTION, MOST [sRaNcHING IN SNObOl PROGRAMS 
IS DONE THIS way; THE OTHER METHOD (COMPUTING THE LABEL OF THE 
NEXT INSTRUCTION) IS USUALLY RATHER RARE, 

IT SHOULD BE EMPHASIZED THAT FaIlURE CAN OCCUR AT VIRTUALLY ANY 
PART OF AN INSTRiJCTlON* AND WHEN FAILURE OCCURS* THE INSTRUCTION 
TERMINATES IMMEDIATELY AND THE FAILURE EXIT (IF ONE EXISTS) IS TAkEN. 

THERt ARE TWO RATHER VITAL POINTS NECESSARY TO SUCCESSFUL USE OF 
FAILURE: WHAT CAUSES FAILURE* AND WHAT WILL BE LEFT UNOUNE WHEN 



n 



li 



im 



• 









m 



1933000 

1^35000 
19 36000 

19 370G0 
19 38000 
19,39000 

ly^ooon 

1941000 
1942000 

1043000 
1944000 
1945000 
1946000 
1947000 
194BOO0 

1949000 
1950000 
19S1000 
1952000 
1953000 
1954000 
1955000 
1956000 
1957000 
1958000 
1959000 
1960000 

1961000 
1942000 

1963000 
1964000 
1965000 
1966000 
1967000 
1968000 
1969000 
1970000 
1971000 
1972000 
1973000 
19/'4000 
1975000 
1976000 
1977000 
197B000 
1979000 
19fi0000 
1981000 
1962000 
1983000 
1984000 
1965000 
1986000 
1987000 
1988000 
1989000 



AN IK5TRUCII0N FAjLi) AT A PARTICULAR POINT, 



• 



%CP 
8,1, 



18 
CAUSES 



OF FAILURE, 



THE FOLLOWING CONDITIONS CAUSE FAILURE OF AN INSTRUCTION: 



1) 

2) 



3) 



'^) 



5) 



FAILURE Q^ THE PATT 
FUNCTION FAILURE. 
SAY THEY SHOULD (AS 
FAIL WHEN THEY USE 
FAILURE OF ARITHmET 
NCN~NUMERIC ARGUMEN 
DIVISION BY 2ER0' 
MON-ZERO REMAINOLR. 
I/O FAILS WHEN THE 

MEANS END-OF-FILE 
CAUSED RY exceeding 
OUTPUT, OR FOR vARl 

A ftxeo-length VARi 

IS NON-NUMEKIC OH M 



ERN MATCH, 

INTRINSIC FUNCTIONS FAIL WHEN THEIR DESCRIPTIONS 

SUMING NO BUGS); PROGRAM-DEFINED FUNCTIONS 

FRETUHN IN A GO-TO PART, 

IC, THERE ARE SEVERAL REASONS FOR THIS! 

TS/ VALUES TOO BIG FOR THE HARDWARE TO HANDLED 

IVISIGN WITH INTEGER MODE THAT GIVES A 

OPERATION CANT BE COMPLETED. FOR FILES, THIS 
R PARITY ERRORS, FOR TELETYPES* FAILURE IS 

THE WAIT TIME OR USING THE BREAK KEY DURING 
OUS ABNORMAL CONDITIONS, 

ABLE FAILS DURING EVALUATION IF ITS LENGTH 
EGATIVE, 



# 



• 

m 



%CP 
8.2, 



25 
CRDER 



OF EXECUTION 



IN ORDER TO ,<N0W HOW MUCH WI^L BE DONE WHEN AN INSTRUCTION FAIlS, 

It is necessary rn know the exact order in which an instruction is 

EXECUTED. THE RUlES GQVERnING THE ORDER OF EXECUTION ARES 



1) 



23 
3) 



5) 



6) 

7 3 
83 



ALL 

CALL 

OPER 

THE 

AFTE 

RIGH 

IABL 

AFTE 

AFTf^ 

THE I 

IF A 

OPER 

THE 

THE 

LAST 

PRCG 

IS A 



express 

ED AS S 
aTORS A 
STRING 
R THE S 
T, NAM 
E IS EN 
R THE P 
R THE P 
R MATCH 
STRING 

ation F 

REPLACE 
REPLACE 
LY, THE 

RAM TRA 
FATAL 



Ions are 

OOM A5 AL 
RE aPFLIE 

reference 

TRING REF 
ES OF STR 

countered 

ATTERi\ IS 

atterk ma 

ImG SU3ST 

variable 

AILS, 

ment rart 

^ent of T 

apprupri 

NSFERo TO 
ERROR. 



EVALUATED FROM LEFT TO RIGHT, FUNCTIONS ARE 
L PARAMETERS HAVE BEEN EVALUATED, ARITHMETIC 
D AS SOON AS BOTH OPERANDS HAVE BEEN EVALUATED. 
Is THE FIRST PART OF A RULE THAT IS EVALUATED, 

eRence* THE Pattern is evaluated from left to 

ING VARIABLES ARE EVALUATED wHEN THE STRING vAR- 

• 

EVALUATED, THE PATTERN MATCH TAKES PLACE, 
TCh, STRING VARIABLES (IF ANY3 ARE ASSIGNED 
RINGS AS NEW VALUES. FAILURE CAN OCCUR HERE 

NAME IS AN OUTPUT STRING* AND THE OUTPUT 

CIF ONE EXISTS) IS THEN EVALUATED, 
HE WaTcHED SUBSTRING THEN OCCURS, 
ATE PART OF THE GO-TO PART IS EVALUATED* AND THE 

THE NEXT INSTRUCTION, FAILURE OF A GO-TO PART 



• 



"SECTION 9 
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9, INTRINSIC FUNCTIONS, 
THIS SECTION DESCRIBES 






THE FUNCTIONS THAT ARE PRE-DEFINED BY THE 



i 



OH 






m 

m 
m 






1990000 
1991000 
1992000 
1993000 
199i'000 
199&000 
1996000 
1997000 
199800C 

1999000 

2000000 

^oolooo 

2002000 
2003000 
2004000 
2005000 
?OOA000 
2007000 
2006000 
2009000 
2010000 
2011000 

2012000 
201 3000 

p.oiuooa 

iiOjbOOO 
2016000 
2017000 
2018000 
2019000 
2020000 

202l000 
2022000 

2023000 
2024000 
2023000 
2026000 
2027000 
2028000 
2029000 

2030000 
2031000 
2032000 
2033000 
2034000 
2035000 
2036000 
2037000 
2038000 
2039000 
2040000 
2041000 
2042000 
2043000 
2044000 
2045000 
2046000 



B550C SNOBiJLS SYbTE.M, OF COURSE* THE NAMES OF THESE FUNCTIONS ARE IN 
NO SENSE "RESERVED"* ANO A PROGRAM CAN RE-DEFlNE ANY OF THEM IF THE 
USER WISHES TO USE THEIR NAMES FOR HIS OWN FUNCTlONSt THE FUNCTIONS 
ARE LISTED IN ALPHABETICAL ORDER. 
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ASSIGN(A*B) Is A SPECIAL FAST* "EFFICIENT" ASSIGNMENT FUNCTION THAT 
TAKES SPECIAL ADVANTAGE OF THE B5500 STRING REPRESENTATION. THIS 
FUNCTION CAN GENERALLY BE ASSUMED TO BE LACKING IN OTHER VERSIONS 
OF SNoeoL3. IT IS EWUIVALENT TQ THE FOLLOWING TWO STATEMENTS! 



A 



B 



NO CHECKING QF PARAMETERS IS DONE, INCLUDING CHECKING FOR OUTPUT USE. 
(CHECKS FOR INPUT USE OCCUR BEFORE THE FUNCTION IS CALLED* SO THEY 
WILL NOT 8E SUPPHESSEO,) THE FUNCTION SImPlY MOVES POlNrERS AROUND 
WITHOUT LOOKING AT WHAT THEY POINT TO. NOTE THE FOLLOWING WARNINGS: 
IF EITHER PARAMETER IS A LITERAL* THE VALUE OF THAT LITERAL WILL BE 
DESTROYFD (THROUGHOUT THE PROGRAM )--t I TERALS SHOULD NEVER EVER EVER 
BE USED aS pA^Af^tTERS TO aSSIGN(). aUSO* ALTHOUGH 8 Ca^ BE OMjTTED 
(It WILL THEN BE ASSUMED NuLD* A MUST 3E PRESENT* OR THE FUNCTION 
WILL FAIL, 

^CP 13 

CALLF(F,P1,P2*P3*»»'3 CALLS THE FUNCTION NAMED BY F* WITH PARAMETERS 
Pi* p2* p3* ETC. CALLF RETURNS THE VALUE RETURNED BY THIS FUNCTION* 
OR FAILS IF THE FUNCTION FAILS. F CAN NAME ANY FUNCTION* INTRINSIC 
OR PROGRAM-DEFINdD. FOR EXAMPLE: 



CALLF("FX"*8'"1"»AI-) MpANS 

CALLF("Sl7E"*a) Me'aNS 

C ALLF ( "C A lLF"* "MODE", "INTEGER") MEANS 



FX(B*"r''AL) 
SIZE(B) 

MODEC'iNTEGER") 



IF CALLF IS fBEiNG TRACED* NO OUTPUT WILL APPEAR AT ITS RETURN. IT IS 
NECESSARY TO TRACE THE FUNCTION BEING CALLED TO GET THE RETURN VALUE. 
IF THE FUNCTION IS UNDEFINED* AN ABNORMAL TERMINATION WIlL OCCuR AS 
WITH ALL ^THER UNDEFINED FUNCTION CALLS, 



*CP 24 
CLEAR( ) 
THIS 
DONE 



FUNCTION SETS ALL STRINGS TO NULL. THIS IS ONlY 

TO THE TOP VALUE ON A PUSH-DOWN STACK* SO VALUES THAT 



• 



• 



• 



# 






2C47000 
2048000 
2049000 
20 50000 
2051000 
2052000 
20S3000 
2054000 
2055000 
2056000 
2057000 
205BOO0 
2059000 
vj 6 u u L» 

2061000 
2.062000 
2063000 
206^000 
2065000 
2066000 
2067000 
20.68000 
2069000 
2070000 
2071000 
2072000 
2073000 
2074000 
2075000 
2076000 
2077000 
2078000 
2079000 
2090000 
20^1000 

2082000 

2083000 

2OR460O 

2085000 

20R6000 

2087000 

2098000 

2O39OOQ. 

2090000 

2091000 

2092000 

2093000 

2094000 

2095000, 

2096000 

2097000 

20 980 Op 

2099000 

2100000 

2101000 

2102000 

2103000 



HAVT BFF_N PUSHtD DGWK InILL HQT B£ LOST, AS AN EXAMPLE OF ITS USL> 

Thr FOLLOWING FUNCTION CLEARS ALL STRINGS EXCEPT THOSE WHOSE NAMES 

ARE ON A CERTAIi'J LIST (iNHIcH IS THEN CALCULATED BY THE PROGRAM, 

OF CnJRSE)J 






* * * * 
-PFF 

* L 
* 

* 

* 

* 



SE 
VA 
TH 
FO 

NU 

* rf: 

RESE 
RE3E 



************** 
INF "RESET CL)'S ^"N" 

IS A LIST OF NAMES OF VARIABLES, THE 
MICQLONS i"',")p AND L SHOULD END WITH 
RUBLES LISTED IN L ARE PUSHED* EVERYTHING IS SET NULL' AND 
E VARIABLES ARE THEN POPPED TD THEIR FORMER VALUES. 
R EXAMPLE* REStTC"ALPHA;RESULTS;MEM>") 
LL EXCEPT FOR AuPHA, RESULTS, AND 
WILL ALSO BE SAVED, 



MEM, 



NAMES ARE SEPARATED BY 
A SEMICOLON, ALL THE 



WILL SET EVERYTHING TO 
NUTE THAT THE STRINGS 



S F T > L * AND N' 
T PUSHCL'L) 
T 1 L * N * ^' ; " 
PUSH{$N) 
RE3ET2 CLEARC ) 

Pnp(L) 
RESETS L *N* '•;" 

POPf $N) 
******************** 



;FCRESET2) 
:CRESET1) 



:FCRETURN) 
JCRESET3) 



CLOSE(F*V) CLOSES THE FILE ASSOCIATED WITH THE I/O STRING %V » IN 
THE MANNER INDICATED BY V. CLOSE FAILS IF $F IS NOT A FILE I/O 
STRING OR V ISNT ONE OF THE VALUES LISTED BELOw: 






CLOSf-: 



Files 



"SAVE" 
DjSK 

remain on 
told to re 
"lock" close 
program ar 
taPes are 
the iiperat 

"Release" cl 

AREAS To T 
Di'SK FILES 

"PU^GE" CLOS 
REMOVED FR 
THE USER T 
PROGRAM.) 

"*". IS USED 
For THE CU 
JUST bEYQN 

In either 

CONTROL Of 



S THE FIuE AND SAvES THE I/O UNIT FUR THE PROGRAM, 
CREATED BY THE PROGRAM ARE LUST; OTHER DiSK FjLES 
THE DISK. TAPES ARE REWOUND AND THE OPERATOR IS 
MOVE AND SAVE THEM, 

S AND LOCKS THE FILE, DISK FILES CREATED BY THE 
E ENTERED IN THE DISK DIRECTORY, AND ARE SAVED, 
REWOUND AND LOCKED CTHE UNIT IS "NOT READY" UNTIL 
OR -XEADIES IT), 

OSEii THE FILE AND RELEASES THE UNIT AND ALL BUFFER 
HE SYSTEM. TAPES ARE REWOUND AND MARKED AS SCRATCH. 

CREATED BY THE PROGRAM ARE LOST, 
ES* PURGES, AND RELEASES THE FILE, DISK FILES ARE 
OM THE DIRECTORY IF THEIR SECURITY STATUS AlLOWS 
Q PURGE THEM* flF HE CANT» THE MCP WILL KILL THE 

ONLY WITH TaPe FILeS, pOR INPUT FILES* THE ENo-Op-FILE 
RREiNT FILE IS LOCATED, AND THE TAPE l5 POSITIONED 
D IT. FOR OUTPUT FILES* aN ENo-OF-FILE IS WRITTEN. 
CASE, THE TAPE IS NOT REWOUND AND REMAINS UNDER 
THE PROGRAM, 
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COPY(S*N) RETURNS A STRING CONSISTING OF N COPIES OF S, FAILURE 

OCCURS IF N IS NON-NUMERIC OR NEGATIVE. THIS FUNCTION IS QUITE 

USEFUL AS AN AID TO FORMATTING OUTPUT. FOR EXAMPLES 



• » 



m 
m 



m 



# 



2104000 
2105000 
2106000 
2107'000 
2108000 
2109000 
21 10000 
2111000 
2112000 
2113000 
2114000 
2115000 
2116000 
2117000 
2118000 
2119000 
2120000 

2121000 
2122000 
2123000 
2124000 

,2.125000 
2126000 

2127000 
2128000 

2129000 

2130000 

.21.31.00,0. 

2132000 
2133000 

2134000 
2135000 
2136000 
2137000 

2138000 
2139000 
2140000 
214 1000 
2142000 
2143000 
2144000 
2U5000 
2146000 
2147000 
2148000 
2149000 
2ibb000 
2151000 
2152000 
2153000 
2154000 
2155000 
2156000 
2157000 
2158000 
2159000 
2160000 



PHINT *■ COPrC-' ","1Q"-SIZE(A)) A SFCTOOBIG) 
WILL PRINT A RIGHT-JUSTIFIED iN A 1 O-CH AR ACTER FIELD, 



*;CP 3 

OATEO RETURNS THE CURRENT DATE IN THE FORM: 



MM./D.O/YY 



DEFlNEC.A'B.fC) CREATES a PROGRAM-DEFINED FUNCTION AT RUN-TlME, 
THE PARAMETERS DESCRIBE THE FUNCTION As FOLLOWS? 

A IS THE "FUNCTION PROTOTYPE'S rtHICH GIVES THE FUNCTION NAME 
AND ITS FORMAL PARAMETERS IN THE FORMt 

... <FCT N.AMEX <PARAMS> ) 

WHERE <FCT NAME> IS THE FUNCTION NAME* AND <PARAM5> IS 
THE LIST OF FORMAT PARAMETERS (POSSIBLY NULL) SEPARATED QY 

COMMAS. 
8 CONTAINS A UABEL WHIcH IS THE ENTRY POINT FOR THE FUNCTION, 
,. . JF.B IS, NULL* THE ENpRY POINT IS TAKEN TO SPELLED jHE SAME 
AS <FCT NAME>, 
C CONTAINS A tIST OF LOCAL VARIABLES FOR THE FUNCTION, IF ANY, 
.SEPARATED BY COMMAS, 

SEE THE DESCRIPTIONS OF FUNCTION CODE AND CALLS FOR FURTHER INFO 
ON prOGraM-DEFINLD FUNCTIONS. SOME EXAMPLES OF CALLS OF DEFINEC)» 

DEFINECMCAB* aC)"*"Mi","V*XY,aLPH") 

nEFINEC"MAXC A>ar') 

OEriNE("MlNCMlN,X)") 

0EFINEC"FCTC )'%,"X") 

DEFINEc"MRGEcLA,L8)","MRGENTRY"*"Ll»L2*L3'') 



%C P 1 3 

DETaCHCS'T) TURNS OFF Ai^Y I/O USE OF THE OBJECT NAMED BY S (a STRING 

NAME, Function, or label), the type of the object is indicated 
BY The FIRST chahactlR Op- t as follows: 

"s" means that s names a string, 

"F" MEANS THAT S NAMES A FUNCTION, 
"L" MEANS THAT S CONTAINS A LABEL. 

IF T IS NULL* "S" IS ASSUMED, SINCE THE MOST COMMON USE OF THIS 
FUNCTIOM IS TO TURN OFF TRACING. FOR EXAMPLE' TO TERMINATE ANY 
I/C USE OF THE STRING ALPHA* EITHER DEt ACH C "ALPHA" ) OR DETACHC 
"ALPHA", "S") WOULD WORK. 



# 



# 



m 

m 



• 
# 



2161000 
216^000 
2163000 
2164000 
2165000 
2166000 
2167000 
2168000 
2169000 
2170000 
21 71000 
2172000 
2W3000 
2174000 
2175000 
2176000 
2177000 
2178000 
2179000 
2180000 
2181000 
2182000 
2183000 
2164000 
2l8b000 

2186000 
2187000 
2188000 
2189000 

2190000 
2191000 

2192000 
2193000 
2194000 
2195000 
2196000 
2197000 
2198000 
2199000 
2200000 
2201000 
2202000 
2203000 
2204000 
2205000 
2206000 
2207000 
2208000 
2209000 
2210000 
2211000 
2212000 
2213000 
2214000 

221b000 
2216000 

2217000 
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DU'^PC) CAUS|f:S a DUMP OF ALL STRINGS AND LABELS IN USE TO BE PRINTED 
ON THE LINE PRINTER FILE* PRINT, THE OUTPUT IS IN THE SAME 
FOf^M AS THAT USEU FOR TRACING, FOR EACH STRING* ITS NAME AND 
CURRENT VALUE IS PRINTED. FOR EACH LABEL* THE NUMBER Qf TIMES 
IT HAS BEEN EXECUTED IS GIVEN, 



i 

• 
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EOFCSi SUCCEEDS 
ON' THAT FILE f 



IF 



$S 



IS 



A FILE 

ra AN 



I/O STRING 
END-GF-FILE 



AND THE LAST I/O OPERATION 



%CP 2 

.EQ(A,B) SUCCEEDS IE 
THE SAME INTEGER. 



A AND 8 ARE BOTH NUMERIC AND REPRESENT 



%C" 2 
'-Q'JALSU/B) 

IT CAN BE 

A B 
B A 



SijCCEEOS IF A AND 8 HavE THE SAME STRINGS AS VALUES. 
DEFINED IN SNOBOL AS: 

SF(FRETURN) 
!FCFRETURtN)SCRETURN) 
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EXECUTECS) "EXECUTES" THE STRING S. AT PRESENT* THIS FUNCTION 
RATHER LiMITtD* ANn wQRKS FOR THE FOLLOWING CASES ONLY: 



IS 



1) S IS AN I/n SIRING TO A FILE, THE FILE IS GIVEN TO THE MCP 
To EXECUTE. THIS IS THE SAME AS THf "ZIP WITH <FILF PART>" 
CONSTRUCT OF ALGOL. FOR DETAILS OF FILE ORGANIZATION AND 
USE OF COnTROu CARDS IN THE FILE* SEE THE ALGOL MANUAL, 

2) S STARTS i'^TH A "-". THE VALUE IS PASSED TO THE SNOBOL CONTROL 
CARD ROUTINE* AND INTERPRETED AS A CONTROL CARD, MOST OF 

THE CONTROL CARDS ARE RATHER USELESS DURING EXECUTION* BUT 
A FEW (LIKE -COMPILE ANd -LjBRARY) cAN AT TIMES Be USEFUL, 

3) 5 STARTS ^ITH "?", THE VALUE OF S IS PASSED TO THE MCP AS 
AN MCP CONTROL CARD. EXECUTEO THEN RETURNS* AND THE MCP 
GIVES NO liMDlCATlON WHAT IT DID WITH THE CARD. THE STRING 
SHOULD ALWAYS END WITH "JEND,". 
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FILL(F*MFlD»FlD*UNrT*DATE*REEL*CYcLE) ALTERS CERTAIN MqP INFORMATION 
ASSOCIATED WITH THE I/O STRING $F. THIS FUNCTION IS USUALLY 
A NO-OP iF THE FjLE iS OPEN (WHEN THE MCP WJLL ALLOW CHANGES 
To An open file is VERY UNCLEAR), IF SF IS NOT AN I/O STRING TO 
A FILE* FiLLC) WILL FAIL, IF ANY OF THE OTHER PARAMETERS IS NULL* 



• 
• 

m 
m 
m 



m 



• 

• 



\m 



m 
m 
m 
m 






2218000 
2219000 
2220000 
2221000 
2222000 
2223000 

222^000 
2225000 
2226000 
2227000 
2228000 
2229000 
2230000 
2231000 
2232000 

2233000 
2234000 
2235000 
2236000 

2237000 
2236000 
2239000 
2240000 
22/4 1000 
22^2000 
2243000 
2244000 
2245000 
2246000 
2247000 
2246000 
2249000 
2250000 
2251000 
2252000 
2253000 
2254000 
2255000 
2256000 
2257000 
2253000 
2259000 
2260000 
2261000 
2262000 
2263000 

22a4oO0 
2265000 
2266000 
2267000 
2268000 
2269000 
2270000 

22^1000 
2272000 

2273000 
2274000 



THEN THt INFakMATION ASSOCIATED ^^ITH THAT PARAMETER IS NOT ALTERED, 
NON-NULL PARAMETLRS KILL CAUSE THEIR ASSOCIATED QUANTITIES TO BE 
ASSIGNED THE VALUE OF THE PARAMETER. THE MEANINGS OF THE PARAMETERS 
ARF AS FULLOWS: 



MFIO IS 
HALF 
IS " 
CHAR 
Flo IS 
UMT Is 
NUMB 

Only 

A N 
A MA 

File 

DATE IS 

TAPE 

Hnw 

RFFL IS 

CYCLE I 

NAME 



TH 

OF 

000 

ACT 

THE 
AN 

1"NS 

or 

"iON 

gne 

S* 
TH 

S), 

IT 
TH 

S T 

AN 



E "MU 
rHL 

0000" 

ER5 W 
•TIL 
INTE 
aRE 

STINC 

-niSK 
TIC r 

HnwEV 
E DAT 
Tft'O 
IS ST 
E REE 
HE CY 
D DAT 



Fl 

♦ 

IL 

E 

Gl 

GI 

Tl 

F 

AP 

EK 
E 

r 

OK 
L 

Cl 
E. 



I-FIL 
LF NA 
IF S 
L 8E 
I . D . " 
R QES 
VEN I 
ON tH 

ILCS* 
E, IH 

' IT 
ASSOC 

0RM5 

ED IN 
NUMBE 
E NUM 



E I.O. 
ME, F 

izecmf 

USED, 

DF TH 
CRIBIN 
N TaBL 
E PROG 
THUS 
E PRnG 
IS IMP 
lATED 
CAN BE 
A FIL 
R^ FOR 
BER* U 



" OF THE file; that 
OR SINGLE-NAME CARD 
ID) > "7"* ONLY THE 



IS, IT IS THE FIRST 
READER FILES* MFID 
FIRST SEVEN 



E FILE--THE LAST HALF OF ITS NAME. 

6 THE I/O DEVICE, THE VALID UNIT 

E 9.1, NOTE THAT FOR INPUT FILES, THE 

RAM NEED MAKE IS BETWEEN DISK FILES 

, If UNTj = "0" AND THE FILE IS ON 

RAM i^lLL EIND IT CORRECTLY, FOR OUTPUT 

ORTANT TO GET THE RiGHT INTEGER, 

WITH THE FILE (NORMALLY UNlY USED WITH 

used: MH/DD/YY OR YYDOD (WHICH IS 
E LABEL), 

MULTI-REEL TAPES. 
SED WHEN SEVERAL TAPES HAVE THE SAME 



FOR EXAMPLE* TO ASSIGN THE I/O STRING CARD TO THE DISK FILE 
SMirH/CR03» THE PROGRAM WOULD USE: 

FILL("CAR0"."SMITH","CRD3"»"12") 

TC GIVF THE FILE NEWUlSK THE NAME GEO/CALlBR, YDU COuLD USE: 

FlLL("NEWOlSK","Gta'S"CALItJR") 

NOTE THAT THE UNIT NEED NOT BE USED HERE! IT IS ONLY NEEDED wHEN A 
DIFFERENT I/O DEVICE IS DESIRED THAN WAS USED ThE LAST TIME T HE FILE 
WAS GPEMED, FOR ANOTHER EXAmPlE, TQ ASSIGN THE FIlE READ TD THE 
CARD READER FILE INPT> THE FOLLOWING WOULD WORK: 

FILLC"REA(1'%"0000000"»"INPT","0") 



• 

m 



%PAGE 



UNIT 



1 
2 
3 

4 
5 
6 
7 

9 
10 



TABLE 9.1. 

DESCRIPTION 

CARD RErtDER/PUNCH 

LINE PRINTER (NO BACK-yP) 

LABELED MAGNETIC TAPE 

UNUSED 

LINE PRINTER OR TAPE BACK-yP 

LABELED "DESIGNATED" FILE (?) 

PRINTER BACK-UP TAPE 

UNLABELED "DESIGNATED" FILE (?) 
UNLABELED PAPER TAPE 
UNLABELED MAGNETIC TAPE 
RANDOM DISK FILE 



m 

m 



227b000 
2276000 
2277000 
2278000 
2279000 
22BC00O 

22P1000 
2262000 
2283000 
228^000 
2285000 
2286000 
22 «. 7000 
22880G0 
2289000 
229.0000 
2291000 
2292000 
2293000 

2294000 
2295000 
2296000 
2297000 
2298000 
2299000 
2300000 
2301000 
2302000 
2303000 
2304000 
2305000 
2306000 
2307000 
2308000 

23n9000 
2310000 
2311000 
2312000 
2313000 
233,4000 
2315000 
2316000 
2317000 
2318000 

231.9000 
,2320000 
2321000 
2322000 
2323000 
2324000 
2325000 
2326000 

2327000 
2328000 
2329000 

2330000 
233100 



11 
12 
53 
14 
15 
16 
17 
18 
32 



SUPERVISORY PRIMER CSPO) 
SERIAL DISK FILE 
UPDATE DISK FILE 
DATA COMMUNICATIONS 
PRINTER BACK-UP DISK 
PRIt^TER BACK-UP TAPE OR 
PRINTER OR BACK-UP DISK 
PRINTER DR BACK-UP DISK 
SPECIAL FORMS FILE. 



DISK 



OR BACK-UP TAPE 
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m 



%PAGE 






ARE BOTH NUMERIC AND A > 8, 



GJCA^B) SUCCEEDS IF A AND B ARE BOTH NyMERlC AND A > 8, 



,LFtA,B,) SUCCEEDS IF A AND B ARE BOTH NUMERIC AND A < B 



LEVELC) RETURNS THE LEVEL OF FUNCTION CALLS WHICH THE PROGRAM 
HAS REACHED. THE LEVEL COUNTER STARTS AT 1» INCREASES WHEN 
A FUNCTION IS CALLED' ANq DECREASES WHEN A FUNCTION RETURNS, 



^CP 7 

LoaKCS»F) DEFINES THE STRING $S Tc BE A "NON-READING" INPUT STRING 
FOR THE FILE ASSUCIATEO WITH THE I/O STRING $F, THIS MEANS THAT 
USING S5 AS AN INPUT STRING WiLL CAUSE THE "NEXT" RECORD TO BE 
READ FROM THE FUE, ^UT tHIS RECORD wiLL REMAIN IN THE BUFFER* 
SC IT WILL f-if THE ^'fXT ON^ Re^C THUS^ CONSj/CUTIVe USeS Of $S 
WIlI GIVE THE SAME InPUT RECORD. THE SYSTEM DEFINES THE I/O STRING 
LOCK as: L0OKC"LunK"*"READ"3. 



• LTf A, R) SUCCEEDS IF A AND B ARE. BOTH NUMERIC AND A < 8, 



%CP 52 

MOnE(V*P) SETS VARIOUS GLOBAL SYSTEM FLAGS* AS INDICATED BY V, 

P IS USUALLY NOT USED' BUT FqR SOME VALUES OF V IT INDICATES A 
VALUE TO BE USED WITH THE FLAG. V MUST BE ONE DF THE VALUES 
BFL^W^ Or MODE( ) WILL FAIL. THE CURRENTLY RECOGNIZED VALUES 
OF V ARE AS FOLLOWSS 

MODE("ANCHnR"*P) CAUSES ALL PATTERNS TO BE ANCHORED AT CHARACTER P. 
THAT IS* ALL PATTERNS MUST MATCH WITH THE FIRST PATTERN ELEMENT 
MATCHING IMMEDIATELY AFTER THE P-TH CHARACTER. FQR P * "0" (OR 
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# 
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233^000 
23 33000 
2334000 
2335000 
2336000 
2337000 
2338000 
2339000 
2340000 
2341000 
2342000 
23/j3000 
2344000 
2345000 
2346000 
2347000 
2348000 
2349000 

2350000 
2 351000 
23^2000 
2353000 
2 354000 
2355000 
2356000 
2 357000 
2358000 
2359000 
2 360000 
236i000 
2362000 
2363000 
2364000 
2365000 
2 366000 
2 367000 

2366000 
2369000 

2370000 
23/1000 

2372000 
2373000 
2374000 
2375000 
2376000 
2377000 
2378000 

2379000 
2380000 
23B1000 
23fi2000 
2383000 

23S4000 

2385000 

23B6000 
2367000 
2388000 



P 

MO 
PR 
riNi 
FA 

M C D E ( 
TO 
Hp 

MOCEC 

MGOrf 
AB 

MODFC 
WH 
OF 
AR 
AR 
ST 
A 

FI 
FT 
CO 
WH 

M G D F C 
TH 

IT 

MODEC 

LI 

MOOFC 
IF 
IN 

K^QDFC 
RE 

MQDEC 
IS 

MODFC 
IF 
EX 
RE 

McDEC 
ST 
AN 
FO 



NULL) 
ST VE 
OGRAM 
LY US 
ILijRE 
"UN AN 
ITS 
A PA 
"DUMP 
"ERRD 
NORMA 
"INFO 
EiN CE 
TEN S 
E: US 
ITHME 

RING 
FUNCT 

XED-L 

C, T 

NDI rl 

ICH C 
"SILE 
"DERU 
E INT 

IS D 
"RUN" 
MIT T 
"R0UN 

THE 
CREAS 
"THUN 
MaIND 
"INTc 

KOT 
"UVER 

A ST 
TRA C 

REPE 
"TRUN 
RINGS 
D The 

R ALL 



f THE 

rsions 

S THAT 

E ^^oe 

OCCUR 
C H " ) G 

NORf^AL 
TTERN 
") CAU 
UMP") 

LLY. 
RM") C 

rtain 

T " M .' rv 
i o i\j .3 J 

ING NG 
TIC FU 
NAME> 
IDNS F 
ENGTH 
HIS Ll 
ONS AR 
AN EaS 

NCE") 
G") TU 

ERACjI 
ESCRIB 
) TERM 
ESTS. 
0") SA 
REMAIN 

ED BY 
CATION 
ER IS 
GER") 

Zero, 

FLOW"* 
RING I 
HARACT 
ATtO I 
GATE"* 
THAT 

Tail 
outPu 



pattern MUSr MATCH AN INITIAL SUBSTRING* NOTE THAT 
OF SNO0OL OONT ALLOW THE EXTRA PARAMETER P» So 
ARE TO BE RUN ON OTHER SNOBOL SYSTEMS SHOULD 

("ANCHOR"), IF P IS NON-NUMERIC OR NEGATIVE' 

R MnDEC"UNANCHOR") RETURNS THE PATTERN MATCH MODE 
> UNANCHOREO MODE. THAT IS* THE FIRST ELEMENT 
CAN MATCH STARTING ANYWHERE IN THE STRING REFERENCE, 
bES DUMPO TO BE CALLED WHEN THE PROGRAM TERMINATES, 
CAUSES OUMP() TO BE CALLED IF THE PROGRAM TERMINATES 



AUSES 
CONDI 

r PRO 

\-NUM 
iMCTiO 
USING 
DRMAL 
VARIA 
ST MA 
E BRO 
ILY B 
TERMl 
KNS 
vE DE 
ED IN 
INATE 



WARN 
TIOnS 
GRAM 
ERIC 
NS* I 

POPC 

PARA 
BLE W 
Y BE 
UGHT 
E CHE 
NATES 
N THE 
BuGGI 

SECT 
S OEB 



ING DIA 

OCCUR 
ERRORS 

aRgumen 

NDIRECT 
) TO ^l 
METERS 
ITH NON 

extende 

TO THE 

CKED BY 

MQDEC" 

CHECKI 

NG TOOL 

ION 11. 

UG MODE 



GNOST 
THAT 
WHEN 
TS TO 
ION W 
PE OU 
OR lO 
-NUME 
IN 
AT TEN 

THE 
INFOR 
NG FO 

THAT 
2, 
f AND 



IC MESSAGES TO BE PRINTED 
ARE VALID IN SnDBOL BUT ARE 
THEY OCCUR. SOME SUCH THINGS 

ARITHMETIC OPERATORS OR 
iTH THE NULL STRING AS THE 
T THE PUSH-DOWN STACK FOR 
CAL variables; USING A 
RIC UR NEGATIVE LENGTH; 
THE FUTURE* AS MORE SUCH 
TIONS OF THE SYSTEM AUTHORS 
SNOBOL INTERPRETER. 
M"). 
R DEBUG MODE. THIS IS 

IS PART OF the interpreter; 

TURNS OFF THE ASSOCIATED 






m 

m 
m 



rs THAT All division is to be rounded, that is* 

DER is > 1/2 OF the OlVlSQR* THE QUOTIENT IS 

1. 

") SAYS THAT DIVISION IS TO BE tRUNC ATEO--THE 

TO BE DISCARDED, 

SAYS THAT DiVlSlON Is TO FAIL IF THE REMAINDER 

P) WHERE SP IS A FILE OUTPUT STRING* SAYS THAT 
S WRITTEN THAT IS LONGER THAN A RECORD* THE 
LRS ARE WRITTEN ON THE NEXT RECORD CTHJS WILL 
F THE REMAINING STRING IS STILL TOO LONG). 
P) CANCELS MoDE("OVERFLoW"*P). THIS MEANS THAT 
ARE TOO LONG FOR ONE RECORD WILL BE TRUNCATED* 
LND WILL NOT BE OUTPUT, THIS IS THE ASSUMED MODE 
T FILES UNLESS MODE C "OVERFLOW" *P ) IS USED, 



.NECA*B) SUCfiEEDS IF A AND B ARE BOTH NUMERIC AND A ^ B. 



«CP 3 

.NUMCA) SUCCEEDS IF A 

MUST BE A DIGIT (JR 
THE NULL STRING IS 



Is NUMERIC. THAT IS* THE FIRST CHARACTER 
"-"; ALL OTHER CHARACTERS MUST BE DIGITS, 
NUMERIC* AS IS "-'•; BOTH s ZERO, 



m 
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23H9000 
2390000 
2391000 
2392000 
2393000 
2394000 
2395000 
2396000 
2397000 
2398000 
2399000 
2400000 
24C1000 
2402000 
2403000 
2404000 
24C5000 
2406000 
2 4 G 7 
2408000 
2409000 
241C000 
2411000 
2412000 
2413000 
2414000 
2415000 
241600.0 
2417000 
2418000 
2419000 
2420000 
2421000 
2422000 
2423000 
24 24000 

2425000 
2426000 
2427000 
2426000 

2429000 

2430000 

2431000 
2432000 

2433000 
2434000 

2^35000 
24 36000 

2437000 

243b000 

2439000 

2440000 

24 41000 

2442000 

2443000 

2444000 

2445000 



^CP 34 

OPSYNCA.BfT) SETS 
BY A TO BE THE 
TVvr OBJECTS IS 



THE OBJECT (STRING* FUNCTION* LABEL) NAMED 
SAME AS THE ONE NAMED BY 8. THE TYPE OF THE 
GIVEN BY THE FIRST CHARACTER OF T* AS FOLLOWS; 



"S" 
tip tt 

"L" 



MEANS THAT A AND B ARE STRING NAMES. 
MEANS THAT A AND 8 ARE FUNCTION NAMES. 
MEANS THAI A AND B CONTAIN LABELS, 



c 

m 
m 



IF T IS NULL* "F" IS ASSUMED-'IN ORDER TO BE COMPATIBLE kvITH THE 
MANY SNOBOL SYSTtMS THAT ONLY ALLOW THIS FUNCTION TO BE APPLIED 
TC FUNCTION NAMES. SOME EXAMPLES OF THE USE OF OPSYnO aRE: 



THE VALUE OF XB TO XA* AND ALSO 



nP£Yf\("XA"»"xB"»"STR") ASSIGNS 
GIVES XA ANY I/O USE OF XB. 

DPSYN<"FL"i'"RXA'S"F") DEFINES THE FUNCTION FL 
AS THE FUNCTION RXA (INCLUDING TRACING* IF 
TRACED). IF KXA IS UNDEFINED* THEN FL IS ALSO 

OPSYn("RE0Q"*"D0"*"LABEL'M DEFINES THE LABEL REDO 
INSTRUCTION AS DO. ANY INSTRUCTION PREVIOUSLY 
IS LOST UNLESS IT HAS BEEN GIVEN ANOTHER NAME. 



TO BE THE SAME 

RXA IS BEING 
UNDEFINED, 
TO BE THE SAME 
LABELED REDO 



• 



NOTE THAT OPSYN ACTS AS AN ASSIGNMENT* NOT A PERMANENT DEFINITION* 
SO A FURTHER CHAnGE IN OnE CF THE VARIABLES WILL NOT AFFECT 
THE OTHER. IF, aFtER THE FIRST EXAMPLE ABOVE* XB WERE ASSIGNED 
A NEW VALUE* XA WOUlD REMAIN UNALTERED; IF TRACElCOQ") WERE 
CALLED, tPACING WOULD BE STARTED FOR DO BUT NOT FOR REDO. 
A TRIVIAL EXAMPLE OF THE USE OF QPSYN IS: 

OPSYN ("NULL"* "EQUALS") 

WHICH WILL DEFINE A FUNCTION NULLO WHICH' WhEN CALLED WITH ONLY 
ONE ARGUMENT, WILL SUCCEED IF THE ARGUMENT IS NULLi THIS MAY 
BE DESIRABLE BECAUSE THE MEANING OF NULLCX) IS A BIT MORE OBVIOUS 
THAN THAT OF EQUAlS(X). 



%CP 16 

PAGECn*F) CAUSES A FAGE-EJECT TO BE DONE ON THE FILE $F , ^vHlCH 

SHOULD BE A LINE PRlMER FILE. ThE EJECTION IS TO "CHANNEL" N* 
WHICH IS A POSITION SOMEWHERE ON THE PAGE DETERMINED BY A PAPER 
TAPE CONTf^OL WItHIN THE PRINTER* THE EJECT WiLL OCCUR ON THE 
NEXT LINE OF OUTPUT* AFTER THE OUTPUT OCCURS. N MUST BE A VALUE 
BETWEEN "0" AND "U"; "0" AND "1" ARE BOTH THE TOP OF THE NEXT 
PAGE. IF F IS OMITTED* THE^ "pRiNT" IS aSSUMeq; IF N IS NULL* 
THE TOP OF THE PAGE ("1") tviLL BE ASSUMED. tHuS* TO SIMPLY DO 

A Page-eject on the print file* the following would suffice? 

PRINT *■ PAGE( ) 

ACTUALLY* PAGE() iS A SPECiAL 

is MEANT TO BE USED ONLY WITH 

ON THE RANGE OF N), THE SAME 

RECGRD(F*N)* WITH 1 S N S 11. 



• 
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CASE OF THE FUNCTION RECORDO* AND 
LINE PRINTERS (THUS THE RESTRICTION 
EFFECT COULD BE ACHEIVED BY USING 
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2446000 
2447000 
2448000 
2449000 
2450000 
24^1000 
2452000 
2453000 
2454000 
24515000 
2436000 
245/^000 
245«000 
24rj9000 
2460000 
2461000 
2462000 
2463000 
2464000 
2465000 
2466000 
2467000 
2468000 
2469000 
2470000 
2471000 
2472000 
2473000 
2474000 
2475000 
2476000 
2477000 
2478000 
2479000 
24p0000 
2481000 
2482000 
2483000 
2484000 
2465000 
2466000 
2487000 
24R8000 
24^9000 
2490000 
2491000 
2492000 
2493000 
2494000 
2495000 
2496000 

249 7000 
2498000 
2499000 
2500000 

250 1000 
2502000 



%CP 12 
POP'CS) 
EVER 
STAC 
5TPT 
lABL 
FRCW 
SOKF 
COPR 
WCUL 

WILL 
IF S 
IS u 



REMOVES THE TOP OF THE PUSH-DOWN STACK FOR THE STRING S. 
Y STRING NAML IN SNOBOL CAN BE CONSIDERED A PUSH-DOi«N 
K» WITH THE TOP UP THE STACK THE CURRENT VALUE OF THE 
:mG. one WARi^IMGS IF THE FORMAL PARAMETERS OR LOCAL VAR- 
fS OF A FUNCTION ARE POPPED i^lTHlN THE FUNCTION^ THE RETURN 
THE F'UNCTIQn will TRY TO POP THEM AGAIN; THIS CAN CAUSE 
GRIEE IF CAi^E IS NOT TAKEN 70 RESTORE THE STACKS TO THEIR 
rCT "DEPTH" IN SUCH CASES. IN SUCH A SITUATION* THE RETURN 
n NOT ALTER THE STRING CIF THE INFORM FLAG IS ON, A MESSAGE 
PE PRINTLD--SEE THE FUNCTION MODEO), POPCS) WIll ^'AIL 
IS NOT A STHING NAME* OR IF S CANT BE POPPED BECAUSE THERE 
NLY one VALUE IN ITS STACK. 



• 



%CP P 

PuSHCS,v) PljSHES J^M VALUE y ONTO THE PySH-DOWN StACK FOR S, 

IF This js followed by pop(S)* s will return to its former 

VALUE. PUSH(S,V) WILL FAIL IF S ISNT A NAMED STRING. AlSO, 
EACH CALL ^f PUSH() REQUIRES ONE MORE ENTRY IN THE SYMBOL 
TAPlF; THERE IS hQOM IN THE TABLE FOR SOMEWHAT OVER 4000 
SYMBOLS (STRINGS* LITERALS, FUNCTIONS* LABELS* TEMPORARY 
STORAGE FOR GROUPINGS* ETC.) AND EXHAUSTING THIS SPACE WILL 
CAUSE THE PROGRAM TO DIE ABNORMALLY, 



%CP 8 

.RANFcN) PRODUCES A PSEUDO-R ANDCM NUMBER IN THE RANGE: 
1 < ,RANF(N) < N 

THE GENERATOR IS ALWAYS INITIALIZED TO THE SAME NUMBER, SO 
THE VALUES RETUHKEO ARE "PREDICTABLE" IN THE SENSE THAT REPEATING 
A RUN WITH THE SAME VALUES FOR N WILL PRODUCE THE SAME SEQUENCE 
OF MUMBERS. 



# 



XCP 10 

RECORD 
WiT 
NCN 

IS 

IT 

REC 

ThA 

OF 

THE 

WIL 



(F,N) SETS THE "RECORD POINTER" FqR THE F I lE ASSOCIATED 
H $F TO N. SF MUST BE A FILE I/O STRING; N MUST BE A 
-NEGATIVE NUMBER* Or rECOrD(F*N) WILL FAIL. THIS FUNCTION 
REALLY ONLY USEFUL FOR DiSK FILES, FOR LINE PRINTER FILES* 

IS THE Same as the function PaGec); for other non-disk files 

ORDC) is a no-op. for DISK FILES, yS I NG RECORD(F,n) SAyS 

t The next i/c operation is tc be dn record n. the records 

A DISK FIlE AKE numbered STARTING AT 0. IF N IS GREATER THAN 

NUMBER OF THE LAST RECORD IN THE FILE* THE NEXT I/O OPERATION 
L FAIL DUE TO END-OF-FlLE. 



%CP 5 
RELEASEC A) 



WHERE A IS A TELETYPE TERMINAL ADDRESS, REMOVES THE 



m 
m 
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• 



P503000 
2504000 
2505000 
2506000 
2507000 
2508000 
2509000 
2510000 
25U000 
2512000 
2513000 
253 '4000 
2515000 
2516000 
2517000 
..251.8000 
2519000 
2520000 
25P1000 
2522000 
2523000 
2524000 

2525000 
2526000 
2527000 
2526000 
2529000 
2530000 
2531000 
2532000 
2533000 

2534000 
2535000 
2536000 
2537000 
2538000 
2539000 
2540000 
2541000 
2542000 
2543000 
2544000 

2545000 
25/i6O00 

2547000 
254B000 
2549000 

2550000 
2551000 

2552000 

2553000 

.2514000 
2555000 

2556000 
2557000 
255R000 
2559000 



TELETYPE FROM THE LIST QF TELLTYPES ATTACHED TO THE PROGRAM, 
FURTHER I/O ON THIS TELETYPE BECOMES IMPOSSIBLE UNTIL THE PERSON 
AT THE TELETYPE RE-ATTAChES HIMSELF, RELEASE(A) WILL FAIL IF A 
IS NOT A VALia ADDRESS OR THE TELETYPE IS NOT ATTACHED, 



*CP 4 

REWINDCF) CAUSES THE FILE ASSOCIATED WITH $F TO BE REWOUND. THE 
FILF REMAINS yPE!\» AND I/O CAN CONTINUE AS USUALj- STARTING 
FROM THE FIRST RtCORO OF THE ElLE* FOR DISK FILES* REWInDCF) 
IS EQUIVALENT TO RECORDC "0"* F ) , 



%CP 7 

RULeSCN) RETURNS THE NUMBER OF RULES EXECUTED AT LEVEL N (^ 1) 

SINCE THE LAST TIME LEyEL N wAS REACHED. IF N = "0" COR NyLL) 
THE TOTAL »^0R THE ENTIRE PRQCjRAr^ IS RETURNED, IF N S LEVELO' 
THE CURRENT INSTRUCTION IS IimClUDED IN THE TOTAL. NOTE THAT IF 
RULESfN) = "0"' THEN LEVEL N HAS NEVER BEEN REACHED. IF N IS 
NCN-NUMERIC Q^- NEGATIVE* RULE3(N) WIlL FAIL. 



SEARCHCFILE) WHERE SFILE IS AN I/O STRING TO A DISK FILE* DOES A 
SEARCH OF THE DISK DIRECTORY FOR THE FILE. IF IT IS PRESENT* 
A DESCRIPTION OF THE FILL IS RETURNED. FAILURE OCCURS IF $FILE 
IS NOT A DISK FILE* OR IF THE FILE IS NOT IN THE DIRECTORY, 
IF THE FILE IS I i^ THE DIRECTORY* THE RETURN VALUE IS OF THE 
FOLLOWING form: 



• 
• 



m 



m 



<MFin> / <FID> 

<EOF pmR> ' 



<security> : 

<upen cou.\t> 



<REC SIZE> : <BLCK SIZE> 



The fxternal naml of the file is <mpid>/<fid>. the security 
status, <secu^^ity>, is a string of 3 "0"-s or "l"-5 y^ith the 

FOLLOWING M£Ai>IINGi: 

1st = "1" IF THE USER CAN ALTER THE SECURITY STATUS OR 

NAME* QR CAN REMOVE TH£ FRE. 
2^0 = "1" IF THE USER CAN HEAD FROM THE FILE. 
3RD = "1" IF THE USF.H CAN WRITE ON THE FILE. 

THE SIZ£ Of THE LOcicAL ANq PHYSIqAL «EcORdS OF THE FILE' IN 
CHARACTERS, ARE GIVEN By <REC SI^E> AND <BlCk SIzE>. <EuF PnTR> 
IS THE RELATIVE ADDRESS OF THE LAST RECORD OF THE FIlE (THAT 
IS* ONE lESS THA,N THE nUmBER OF RECORDS In THE F I lE 3 , <aPEN COU!vT> 

is the number of programs doing i/o on the file. note that* 
Unlike algol which deals entirely with words* the record size 

AND block size are GIVEN TO A SNOBOL PROGRAM IN CHARACTERS, 
IF <SECURITY> = "000"* THEN <REC SIZE>' <BLCK SIZE>* ETC. 
WILL ALL BE "0". 



• 
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2560000 

2561000 
2562000 
2563000 
2564000 
2565000 
2566000 
2567000 

2568000 
2569000 

2570000 
25 71000 
2572000 
2573000 
2574000 
,257500.0 
25 76000 
2577000 
2578000 
2579000 
2580000 
258} 000 
25B2000 
25P3000 
2584000 
2565000 
2566000 
2587000 

2588000 
25R9000 
2590000 
2591000 
2592000 
2593000 
2594000 
2595000 
2596000 
2597000 
2598000 
2599000 
2600000 
2601000 
2602000 
2603000 
2604000 
2605000 
2606000 
2607000 

2606000 

2609000 
2630000 

2611000 
2612000 

2613000 
2614000 
2615000 
2616000 



sizecs) rlturnS the: number of characters in s. thus* size;("abc") = "3", 



% C P 13 

SPACt(F",N) SETS A CUUMTt:^ FOR Th£ FJLE ASSOCIATED i^lTH $F TO N* SO 
THAT EACH I/fl OPERATION ON THE FIlE IS PRECEDED BY SkIPPInG N 
RECORDS (ON INPUT) OR WRITING N BLANK RECORDS (ON OUTPUT), FOR 
LiNF PRINTER FRtS* N = "1" IS NORMAL* N = "0" CAUSES OVERPRINTING* 
N = "2" CAUSES OUUBLE SPACING* ETC FOR OTHER FILES* 
THE NEXT RECORD IS PART OF THE I/O OPERATION* AND N = 
NORMAL SETTING. SPACE(F/N) HIlL FAIL IF $F IS NOT AN 



A SKIP TO 
"0" IS THE 
I/a STRING 






FCR A FILE* OR IF N IS NDN'NUMeRIC FOR EXa^^PLE* 

.SPACE ("PRINT'S"?") 

WILL CAUSE DOUBLL-SPACING ON THE LINE PRINTER FILE PRINT UNTIL 
.A^OTHFR CALL OF :>PACEC) CHANGES THE SPACING, 



*CP 6 

SuSPENO(N) HAS 1 fiU uSES. IF N IS NQN-NyLL* IT MyST BE AN INTEGER* 
ThF PROGRAM WILL BE SUSPENDED FOR N SECONDS AND THEN WiLL RESUME 
EXECUTION FROM THE FUNCTION CA^l* WHICH WILL RETURN A NULL STRING, 
IF N < 0* THE CALL IS A NO-OP, IF N IS NULL (OR MISSING)* THE 
PROGRAM IS SUSPENDED AnD THE INTERACTIVE DEBUGGING RQUTUiE IS 
ACTIVATED. S£E SECTION 11,2 FOR DETAILS. 



%CP 50 

statusfa*i) glvfs thf status of attached teletypes. a is either 
■ the address of an attached teletype* or is null* which means 
that all attached teletypes are to be considered, i is a number* 
either "0" or "1"* depending on the type of status string desireu, 
the meanings of the two values of i are: 

i s "0" is a "passive" status. that is* the status as of the last 
Hardware interrupt associated with the teletype is returned, 
interrupts occur for i/o operations and for status interrogates. 

i = "1" is an "active." status, this mfans that a hardware status 
Interrogate is performed* the mcp status word is updated, and 
the new value is the value returned, unfortunately* the mcp 
AiSo Interprets an active Interrogate as a command to start 

CHARGING the PROJECT NUMBER OF THE PERSON AT THAT TELETYPE 

Fqr the Job time, fqr single-user JqBS* this has Nc lffect* 
But for multI-user jobs it can be rather annoying. 

THE form of a status STRING FOR A sINGLE TERMINAL ISS 

<StATUS> ;: c <PRGj#> / <USER#> : <ADDR> '- <C0N0ITI0nS> ) 



# 



WHERE <PR0J#>/<USER*> IS THE 
(THIS IS THE SECURITY SYSTE^ 
USERS AT OTHER INSTALLATIONS 



USERS PROJECT 
IN USE AT THE 
WILL PROBABLY 



AND I,D, NUMBER, 
UNIVERSITY OF WISCONSIN; 
HAVE TO ALTER THIS 



G2 



^ 



# 









261/000 
2618000 
2619000 
2620000 
2621000 
2622000 
2623000 

2624000 
2625000 
2626000 
2627000 
2628000 

2629000 
2630000 

2631000 
26320.00 
2633000 
2634000 
2635000 
2636000 
263^000 
2638000 
2639000 
2640000 
264.1000 
2642000 
2643000 
2644000 
2645000 
2646000 
2647000 
2648000 
2649000 
2650000 
2651000 
26S3000 

2653000 
2654000 

2655000 
2656000 

2657000 
2658000 
2659000 
2660000 
2661000 

2662000 
2663000 

2664000 
2665000 
2666000 
2667000 
2668000 
^669000 
2670000 
2671000 
2672000 
2673000 



INTRINSIC TO HANULE THE.IR LOCAL ACCOUNTING PROCEDURES,} 
<AODR> IS THE ADDRESS OF THE TELETYPE^ AND <CONDITI0nS> iS 
A STRING OF "0"-S AND "1"-S WITH THE FOLLOWING MEANINGS' 



1ST 
2ND 
3RD 
4TH 
5TH 
6tH 
7TH 
PjH 



"1" 



"1" IF UNIT IS READY. 

"1" IF UNIT IS PEAO-READY (I.E.* THERE IS INPUT TO READ). 

IF UNIT IS WRITE-READY (OUTPUT IS POSSIBLE) 

IF WRITE IS IN PROGRESS, 

"l** IF BREAK KEY USED ON LAST OUTPUT. 

"1" IF HARDWARE DETECTS ABNORMAL CONDITION. 

"1" IF UNIT IS BUSY. 

"1" IF SOME PROGRAM HAS EXCLUSIVE USE OF UNIT. 



MORE CONDITIONS \a.\\ BE ADDED IN THE FUTURE* AS THEY ARE MADE 
AVAILABLE BY THE HARDWARE AND BY THE MCP, 

WHEN A IS NULL' THE STATUS STRINGS OF ALL ATTACHED TELETYPES 
IS RETURNED IN THE FORM: 

<STaTUS> <STATUS> <STaTUS> ... <STATUS> 

WITH ONE <STATUS> FOR EACH TELETYPE. IF THERE ARE NO TELETYPES 
ATTACHED, OR IF A IS NON-NULL AND NOT THE ADDRESS OF AN ATTACHED 
TELETYPE, STATUSO WILL FAIL. FAILURE ALSO OCCURS IF I ISnT 
NUMERICALLY "C" HR "i" (NULL OR MISSING IS "O"), 



2;CP 20 

tiMECN) RETURNS VARIOUS TIMES ASSOCIATED WITH THE PROGRAM, AS FOLLOWS: 

TIMeCO") OR TIM£() RETURNS THE TIME OF DAY IN THE FORM? 
HH!Mm:ss 

TIMEC'I") RETUFxNS THE ELAPSED TIME SINCE MIDNIGHT IN SIXTIETHS 

rjF A SECOND, 

TIWE("2"3 RETURNS THE PROGRAMS TOTAL CPU TIME* IN SIXTIETHS OF 
A SECOND, 

TIMF("3") RETURNS THE PROGRAMS TOTAL I/O CHANNEL TIME, AGAIN IN 
SIXTIETHS OF A SECOND. 

TI^^F("4") RETURNS THE VALUE OF A SIX-BIT TIMER IN THE FORM OF 

A Single character, the timer used changes every sixtieth of 
A second, when called at widely spaced intervals (that is, 

WITH several riUNDHED SNOBOL INSTRUCTIONS IN BETWEEN)* IT 
GEHAVES MUCH LIKE A RANDOM CHARACTER, 



%CP 2 

TRACEFtFl,F2,F3,.,,) TURNS ON TRACING FOR THE FUNCTIONS NAMED BY 
Fl, F2* F3* ETC. SEE SECTION 11,1 FOR DETAILS, 



%CP 2 



• 
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w. 
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2674000 
2675000 
2676000 
267^000 
2678000 
267^000 
26H0000 
26R1000 
2682000 
2693000 
2684000 
26R5000 
2686000 
26B700C 
2688000 
2689000 
2690000 
2691000 
2692000 
2693000 
2694000 
2695000 
2696000 
2697000 
2698000 
2699000 
2700000 
2701000 
2702000 
2703000 
2704000 
2705000 
2706000 
2707000 
2708000 
2709000 
2710000 
2711000 
2712000 
2713000 
2714000 
2715000 
2716000 
2717000 
27I8OOO 
2719000 
2720000 
2721000 
2722000 
2723000 
2724000 
2725000 
2726000 

2727000 
2728000 
2729000 
2730000 



rRACELCUi*L?*L3^.., ) TURNS ON TRACING FOR THE LABELS CONTAINED IN LX^ 
L2^ L3j. etc. see section 11.1 FOR DETAILS. 



%CP 2 

TRACF:SCS1*S2^S3* ... J TURNS ON TRACING FQR THE STRINGS NAMED BY 
SI, S2, S3^ ETC. SEE SECTION 11,1 FqR DETAILS. 



%CP 6 

TRIMCS) RET'JRNS THE VALUE OF S ^ITH ALL TRAILING BLANKS (IF ANY) 
REN'OVEO, SOME EXAMPLES ARES 






TRTMC" AB C 
TRiMc" 
TRIMC" XYZ") 



") = 



" AB C" 
" XYZ" 



%CP 3 

UMEQLCA^B) SUCCEEDS IF A AND B HAVE DIFFERENT STRINGS 

THE USER SHOULD COMPARE UNEQlO I«ITH THE FUNCTIONS 

.NEC ). 



as values, 
equalsc) and 



• 



%CP 7 

USERCA) has TWO USEb. IF A IS NULL* THE VALUE IS THE ADDRESS QF 
THE TELETYPE ^3EING USED FOP I/O WITH THE STRING TELETYPE. IF 
A IS NON-NULL/ n MUST f3E THE ADDRESS OF AN ATTACHED TELETYPE. 
THIS TELETYPE BECOMES THE ONE BEING USED FOR I/O* AND ITS ADDRESS 
IS ALSO THE VALUE RETURNED, NOTE THAT IN THE LATTER CASE* USER(A) 
IS NOT NECESSARILY THE SAME AS A* SINCE THE ADDRESS IS PUT INTO 
A STANDARD FoRMAI. Fqr EXAMPLE* USERC '♦01/03" ) = "1/3". 



%CP 6 

WAITCN') SETS THE WAITING TIME FOR TELETyPE I/O TO 
IS NON-NULL AND NUMERIC, IF N IS NON-NuMERIC, 
IF N IS NULL* THE WAITING TIME IS NOT ALTERED. 
THE RETURN VALUE IS THE WAITING TiME AS IT WAS 
WAS CALLED, THIi FUnCTIqn IS EQUIVALENT TO THE 



N SECONDS, IF N 
WAITCN) FAILS, 

IN EITHER CASE* 
BEFORE THE FUNCTION 

-WAIT CONTROL 



CARD; IF NEITHER IS USED* 300 SECONDS (5 MINUTES) IS ASSUMED 



^SECTION .10 

%P AGE 1 

10. INPUT/QUTPUT. 

I/O ON THE 85500 is NORMALLY ASSOCIATED WITH A FILE* WHICH IS AN 
ORDERED SET OF I/O "RECORDS". A FILE IS IDENTIFIED BY ITS NAME* 
WHICH IS Of THE FHRN <MULTI-fILE I.n.>/<FILE I.0.>' WHERE BOTH 
<MULTI-FILE I.y.> AND <FIL£ I.D.> ARE STRINGS OF FROM 1 TO 7 
CHaRaCTfRS. NORMALLY* ONLY ALGOL-LIKE IDENTIFIERS aRE USgD IN FILE 






m 



A" 






m 
m 



273100Q NAMES, SINCE MANY MCP FI LE-HANOH NG COMMANDS CAN ONLY HANDLE SUCH 
2732000 NAMES. A SPECIAL CASF IS HADE f'QR CARO-READEH FILES* WHICH MAY 

# ! 2733000 HAVE ONLY A <FILE I,0.>--THE <MULTI-FlLE I.D,> IS THEN ASSUMED A 

-...._ . 2734000 TG BE "0000000", 

2735000 TELETYPES ARE HANDLED DIFFERENTLY THAN NON" I NTER ACT I VE I/O DEVICES, 

# 2736000 THERE IS NO "FIlE" ASSOCIATED WITH A TELETYPE (AS FAR AS SNQBOL m 
. . 2737000 USERS AHE CHNCERNEO). TELETYPE I/O IS DISCUSSED IN SECTION 10.4. 

2738000 

# 2739000 ^ 
2740000 .... 

2741000 %CP 21 

# 2742000 10.1. T/0 STRINGS. m 
27.4 3000 

^ 2744000 TO Da I/O' 5:^nnGL USES "I/O STRIi^iGS" THESE ARE STRING NAMES 

'• 274b000 THAT ARE ASSOCIATED WITH I/O OPERATIONS IN ONE OF TWO V^AYS*. IF # 

- _-. 27460.00. A STRING H.AS "INPUT USE"' THEN ATTEMPTING TO USE ITS VALUE ^^ILL 

■ 2747000 CAUSE INPUT OF A RECORD FROM ITS ASSOCIATED FlLEJ IF THE 

;•• 2748000 STRING HAS "OUTPUT USe"' THeN ASSIGNING A VALUE TO THE STRING WILL H 

I ..- . 2749000 CAUSE THE STRING TQ BE OUTPUT TO ITS AoSOCIArED FILE. FOR EXAMPLE* 

; 2750000 THE STRING NAMED "PHINT" IS AN OUTPUT STRING TO THE LINE PRINTER; 

i# 2751000 THE INSTRUCTION: 

: - ,275.2000 . 

I 2753000 PRINT = "**A = " uUqTE A GUGTE 

# 2754000 
2755000 Wli,L OUTPUT THE VaLUE OF A* IDENTIFIED aS SUCH, TO THE PRINTER. 

2756000 aEFQRE AN I/O STHInG CAN BE uSED, iT IS NECESSARY TO ASSltiN IT 

# 2757000 TO a FILE. THERE ARE TWO WAYS TO DO THIS IN SNOBOL. THE WAY THAT 
_ 2758000.I.S.,REcq..M.M.E.N.0E.D,. IS TO USE THE INTRINSIC FUNCTION FILLO' WHICH 

2759000 IS 0ESCRI8E0 IN SECTION 9, AN ASSIGNMENT CAN 8E MADE BY USING THE 

# 2760000 MCP "?FILE" CONTROL CARD, THOUGH THIS IS RATHER RESTRICTED. SEE 
2761000 SECTION 2.1 FOR A DESCRIPTION OF THIS CONTROL CARD, 

2762000 

# 2763000 

2764000 

' 2765000 %CP 24 

# 2766000 10.2, OPEN AND CLOSED FILES. 

2767000 
2768000 A FILE IS EITHER "OPEN" UR "CLOSED" WITH RESPECT TO A GIVEN 

# 2769000 PROGRAM. A FI^E IS QPEN IF THE PROGRAM HAS DONE SOME I/O ON IT 

2770000 AND HAS NOT CLOSED IT. IN SNOBUL* THERE ARE TWO WAYS TO CLOSE 
2771000 A FIlE: BY CALLING THE INTRINSIC FUNCTION ClOSEC), ANO BY TERMINATING 

# 2772000 THE PROGRAM. 
2773000 WHEN THE FILE aSSOcIaTeD WITH A GIVEN I/O STRING HaS BEEN CLOSED* 

2''74oQo THE PROGRAM CAN USE THE FILLO INjRINSlC TO RE-ASSiGN THE I/O STRING 
H 2775000 TO a DIFFERENT FILE. THE NEW FILE CAN THEN BE OPENED BY DOING I/O 

2776000 ON IT. A PROGRAM CAN ClOsE A FILE, RE-ASSiGN ITS I/O STRING, AND 

2777000 OP|rN THf New FILE AS OFTeN AS DeSiR^D. FOR E'<AMPLe* IF A PROGRAM 

# 2778000 Has been using THE I/O strimg card, WHICH IS ASSIGNED tq. Say, the 

2779000 FILE A/B, THiS FIlE CAN BE DROPPED AND I/O RE-lNlTlATED ON THE 

2730000 DISK FIlE C/Q BY THE FOLLOWING CODE: 

# 2781000 

2 782000 CLOSEC "CARD") 

2783000 FILLC"CARD","C","D","12") 

# 2784000 C = CARD 
1, 2785000 

2786000 THIS WiLL ASSIGN C THE FIRST RECORD IN THE FILE C/D. 

# 2787000 SOME I/O STRINGS (AND THEIR ASSOCIATED FILES) ARE OPEN AT THE 



• 



• 
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m 






27B8000 
2789000 
2790000 
2791000 
2792000 
2793000 
279^000 
2795000 
2796000 
2797000 
2796000 
2799000 
2800000 
2301000 
2802000 
2803000 

2804000 
2805000 
2806000 
2807000 
2808000 
2809000 
2810000 
2811000 
2812000 
2813000 
2814000 
2815000 
2816000 
2817000 
2818000 
2819000 
2820000 
2821000 
2822000 
2823000 
2824000 
28?5000 
2826000 
2827000 
2828000 
2829000 
2830000 
283i,000 
2832000 

2833000 
2834000 
2835000 
2836000 
28 3 7000 
2838000 
.2839000 
2840000 
2841000 
2842000 
2843000 

2844000 



START OF A sNOBOL JUB, wHiuE OTHERS ARE CLOSED. 

The such information on particular i/o strings 



SEE THE NEXT sECtIQN 



# 



%CP 10 

10.3, STANDARD 



I/O STRINGS, 



THERE ARE A NUM8ER OF STANDARD I/O STRINGS PhOVIDED BY THE 
85500 SNOBOL SYSTEM* WHICH CAN BE ASSIGNED TO FILES OF THE APPROPRIATE 
TYPES. UNFORTUNATELY, THE B5500 OPeRaTINQ SYSTEM MaKES IT IMPOSSIBLE 
TO PROVIDE THE USER WITH A WAY tO DEFINE HIS OwN FILE TYPES (HOPEFULLY 

This may be remedied sometime in the future); the i/o strings that 

ARE FROVIDEQ BY SnOL<OL SHuUlO BE SUFFICIENT FQR THE NEEDS OF MOST 
USERS, 

THE rOLLOWlNG I/Q STRINGS ARE PRE-DEFlNED BY B5500 SN0B0L3: 

%CP 8 

READ Is INPUT FROM A CARD-IMaGE FIlE--iHat IS* ANY FILE (CARD* 
TaPE» DISK* ETC.) WITH 80-cHaR LOGICaL RECORDS AND 240-CHaR 
PHYSICAL RECORDS. CARD-READER FILES ACTUALLY DO NOT HAVE 
240-CHAR PHYSICAL ReCORoS* BUT THE SOFTWARE MAKES IT LOOK LIKE 
THEY DO.' FOR BATCH JOBS, READ IS OPEN AT THE START QF ExECUTIQN/ 
AND IS ASSIGNED TO THE FILE THAT CONTAINS THE PROGRAM. THE FIRST 
RECORD RtAD aIlL BE THE ONE FOLLOWING THE EnD CARD. FoR REMOTE 
JOBS* READ 15 CLUSED AT THE START OF EXECUTION. 

^iCP 13 

LOOK IS A "NQN-RfaijING" INPUT STRING FDR THE SaME FILE THA'l THE 
STRING READ IS ASSIGNED TO. THAT IS* REPEATED USES OF LOOK 
WILL GIVE THE SAME RECORD OF TH£ FILE^ USING READ WIlL THEN GIVE 
THIS SAME RECORD, AND ADVANCE TO THE NExT ONE. THUSj 

A = LOOK 
R = LOOK 
C = READ 
D = READ 

WILL ASSIGN THE SAME RECORD TQ A, B^ AND C; D WILL GET THE NEXT ONE. 
THE FUNCTION LOO^C) CAN BE USED TO DEFINE STRINGS OF THIS TYPE 
FOR OTHER INPUT FILES, THE STRING LOOK CAN IN FACT BE DEFINED 
BY LOQK("LOOK'V"HEAD"), 

%CP 5 

CARD Is BOTH InPUT AND OUTPUT FOR A CARD-IMAGE FILE WItH Sq-'CHAR 

LOGICAL RECORD A^D 240*cHaR PHYSICAL REcORD. OF COURSE' IF IT IS 
ASSIGNED TO A CARD-READER FILE, OUTPuT IS IMPOSSIBLE (AND WILL 

CAUSE Termination by the mcp). card is closeD at ihi start of 

EXECUTION. 



• 



m 

m 



%CP 28 
NEwnlSK 

WHE^l 

nisK 

WHEN 



IS AN I/O string for A DISK FIlE THAT WiLL BE CREATED 
THF FiLF IS OPENED. THIS FILE CAN 8E VIEWED AS A TEMpqrarY 
FiLEf WHICH WILL BE SAVED (PUT IN THE DISK DIRECTORY) 
CLOSECNEWDiSK") OR CLOSE ( "NEWD I SK"* "LOCK" ) IS CALLED, 



OR WHEN JHE PROGRAM TERMINATES. IF ANY OTHER SECOND PARAMETER 



B ■ # 

,.... 28^5000 IS USEDc THE FiLE WILL BE CLOSED AND DISCARDED, THE FILE ASSQC" 

'i 2846000 lATFD WITH NE^'JQlSK HAS 80-CHaR LOGICAL RECORDS AND 240-CHaR 

# i 2847000 PHYSICAL RECQHDb. WHEN NEWDISK IS CLOSED/ IT CAN THEN BE A 

2848000 GIVEN A NEW nAME* IF DESIRED* AND RE-OPENED* AND ANOTHER 

28^9000 DISK FILE WIlL BE CREATED* IF THERE IS ALREADY A FIlE IN THE 

# 2850000 DIRECTORY WITH THE NaME ASSIGNED TO NEWDISK, THEN ATTEMPTING . m 

2851O00 rO ENTER IT IN THE DIRECTORY WILL CAUSE THE PROGRAM TO 8E SUSPENDED 

2852000 UNTIL THE OPERATOR TaKeS ACT I0N--USU ALLY THIS ACTION CONSISTS OF 

# 2853000 KILLING THE PROGRAM* THE mAxIMUM NUMBER OF RECORDS THAT CAN # 
2854000 BE PuT IM A FRE ASSOCIATED WITH NEWDISK IS 12000. ThE END*0F» 

2855000 FILF IS ALWAYS jUST AFTER THE LAST RECORD THAT HAS BEEN WRITTEN 

# 2856000 ON THE FILE. Trifl SAVE FACTOR GIVEN TO FILES CREATED BY A 
:.._:,_._,.., 285/000 NEWDISK iS 15 DAYS, 

2858000 

-'# 2859000 

28^0000 %CP 9 
] 2861000 PRINT IS AN OUTPUT FILE TO THE LINE PRINTER. IT IS OPEN aT THF 

:# 2862000 START OF EXECUTION* SINCE THIS FILE IS uSED BY THE COMPILER H 

I 2863000 TG PRODUCE ThE LISTING AND ThE OTHER OUTPUT THAT THE COMPILER 

I 2864000 GENERATES. ON MOST B5500 SYSTEMS* THE LINE PRINTER HAS 132 

^# 2865000 CHARACTERS PER LINE; OUTPUT OF A STRING LONGER THAN THIS WILL %) 

I 286.0000 CAUSE TRUNCATION UNLESS MODE C " OVERFLOW"* "PRI NT" ) IS CALLED 

I 2867000 (SEE SECTION 9* IHE MODFC) FUNCTION), CARRIAGE CONTROL IS 

# 2868000 HANDLED bY THE FUNCTIONS SPACEC) AND PaGEC)* WHIcH ARE DESCRIBED ^ 

2869000 I\ SECTION 9, 

2870000 

# 2871000 %CP 12 # 
.,._ 287,2000 SYSPQT yS AN ATTEMPT TO SIMULATE THE F IRST-C hARACTER CAHRiAgE CONTROL 

2873000 qF IBM, CDC, ETC lInE PRINTERS. THE FIRST CHARACTER qF THE 

# 2874000 OUTPUT IS DELETED AND TRANSLATED INTO THE APPROPRIATE CALLS OF A 

2875000 SPACEC) AnO PAGEC); THE REST QF THE STRING IS THEn PASSED TO 

2876000 THE OUTPUT STRINu* PRINT. THE CARRIAGE CONTROL CHARACTERS 

# 2877000 CURRENTLY RECOGNIZED ARE: <§ 
2878000 

2879000 " " SINGLE SPACING 

2880000 "0" (ZERO) DOUBLE SPACING 

2881000 "1" PAGE EJECT 

2882000 "*" NO SKIP AT END OF PAGE 

# 2883000 "+" NO SPAC I NG--OVERPR INT ING i| 



2884000 
288^000 
2886000 %CP 3 

288?ooo Punch I5 ouTPiiT to the card punch, the logical and physical 

28H8000 RECORD SiZES aRE BOTH 80 CHARACTERS. PUNCH IS CLOSED aT THE 



m 



2889000 START OF EXECUTION, 

2890000 

2891000 %CP 2 

2892000 TELFTYPf-: IS AN 1/0 STRING TO ALL ATTACHED TELETYPES. IT IS m 

2893000 DESCRinLD IN THE NEXT SECTION. 

2894000 

2895000 

2896000 

2897000 %CP 12 

2898000 10.4. TELETYPES. 

2899000 

2900000 TELETYPES ARE HA,^DlED SOMEWHAT DIFFERENTLY FROM THE NON-1 NTERACT I VE 

2901000 I/O DEVICES. THERE IS NO "FILE" OF PRE-DEFINED "RECORDS" WHEN 



# 



• 
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# 



2902000 
2903000 
2904000 
290b000 
2906000 
2907000 
2908000 
2909000 
2910000 
2911000 
291 2000 
291 3000 
2914000 
29 3^000 
2916000 
2917000 
2916000 
2919000 
29P0000 
2921000 
2922000 
2923000 
29P4000 
29::'b000 
29;J6000 
2927000 
2928000 
2929000 
29,10000 
2931000 
2932000 
2933000 
2934000 
2935000 
2936000 
2937000 
29 3«000 
2939000 
2940000 

2 941000 
2942000 
2943000 
2944000 
2945000 
2946000 
2947000 
29 48000 
2949000 
2950000 
29^51000 
2952000 
2953000 
2954000 
2955000 
2956000 
29'j7000 
2958000 



USl,>jG A TtLrTYPt. aLSQ^ TELETYPE I/Q OPERATIONS* ESPECIALLY INPUT* 

Cant always be oqne immediately; it is often necessary for the 
prograi^ to wait^ especially for input. the intrinsic functions 
that are u=itd with file i/o strings ^hl fail if a teletype i/o 

STRING IS GIVEN TU THEM* AND THeRE ARE A FEW FUNCTIONS THAT ARE 
USEO ONLY WITH TELETYPES. 

This SECTION (AND iTS SUB-SECT jOnS ) GIVES A GENERAL PICTURE OF 
HOW l/n IS OONE ON TELETYPES. 



«CP 28 
10,4.1, 



• 

• 

• 



TELTTYPE INPUT AND OUTPUT. 



THERE IS A SINGLE I/O SjRInG USED WljH TELETYPES; iT IS CALLED 
"TELETYPE". WHEN TELETYPE IS USED AS AN INPUT STRING* A STRING 
IS READ FROM A TELETYPE. THE INPUT IS GIVEN TO THE PROGRAM WHEN THE 
USER TYPES THE "END-OF-MESSAGE" CHARACTER* AN ARROW, "<-'♦. 
CTHE CTRL-0 COMBINATION IS ALSO END-QF-mESSAGE , ) IF NO INPUT IS 
RECEIVED WITHIN THE WAITING TIME FUR TELETYPE I/O* THEN TELETYPE 
WILL FAIL, 

WHEN A PROGRAM ASSIGNS A VALUE TO TELETYPE* THE VALUE IS WRITTEN 
ON THE TELETYPE, ThE OUTPUT OPERATION CAN FAIL IF* FOR SOME REASON* 
THE OUTPUT CANT BE INITIATED WiTHIN THE WAITING TIME* OH IF THE 
USER PUSHES THE BREAK KE^ DURING OUTPUT, THE OUTPUT STARTS WHENEVER 
THE WRITE HEAD MAY HAPPEN TO BE* AND IF THE END OF THE LINE IS 
REACHED, OVERPRINTING WILL OCCURt THE PROGRAM MUST INDICATE THE 
"CARRIAGE criNTRnL" ^Y USING THE FOLLOWING CHARACTERS! 

"<" (SINGLE QUOTE ON THE TELETYPE) CAUSES A RETURN Tq THE 

FIRST CHARACTER POSITION OF THE CURRENT LINE. 
"/" CUP-aRRQW on THE TELETYPE) CAUSES THE PaPER TO ADVANCE 

ONE LINE ("LINE FEED"). 
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the output is finished. it 
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FOR OTHER FUNCTIONS RELEVANT 
STATUSO* WAITC3* RELEASEO* 



%CP 7 
10.4.2, 



TELETYPE WAITING TIMES. 



AN I/O OPERATION ON A TELETYPE WILL FAjL iF jT DOES NOT SUCCEED 
WITHIN A FIXED PERIOD OF TIME CALLED THE "WAITING TIME", ThIS TImE 
LIMIT CAN BE SET RY USING THE -wAIT CONTROL CARD OR THE INTRINSIC 
FUNCTION WaITO, IF NEITHER IS USED* A WAITING TIME OF 300 SECONDS 



• 
# 



# 



# 



• 



# 



2959000 
2960000 
2961000 
2962000 
2963000 
2964000 
2963000 
2966000 
296)^000 

296BO00 
2969000 

2970000 
2971000 
2972000 
2973000 
297':<000 
2975000 
2976000 

2977000 

2978000 

2979000 

2980000 

2981000 

2982000 

29«?3000 

29^4000 

29R5000 

2956000 

2987000 

2988000 

2989000 

2990000 

2991000 

299^000 

2993000 

299A000 

299^000 
2996000 

2997000 
2998000 
2999000 
3000000 
300,1.000 
3002000 
3003000 
3 00'* 000 
3005000 
3006000 
3007000 
3008000 
3009000 
301.0000 
3011000 
3012000 
3013000 
3014000 
3015000 



C5 MINUTES) IS .ASSUHtO BY SNOBOL- 



%cp no 

10.4.3, 



TElFTYPE AOuRF.SbES. 



THIS SECTION IS JNLY OF INTEHEST TO USERS WISHING TO USE 

Several teletypes at the same time, other users should probably 

IGNORE IT, 

SINCE IT IS POSSIBLE FOR a PRQqRaH TO BE COMMUNICATING WITH 
SEVERAL TELETYPES* aNO ALL TELETYPE I/O IS DONE THROUGH THE ONE 
I/.Q STRING^.. TELETYPE' THERE MUST Br A tNAY TO DISTINGUISH BETWEEN 
THE iNOlVnUAL TELETYPE-?, THIS IS DONE 9Y GIVING EACH TELETYPE 
AM ADDRESS. THE FUNCTION USER() CAN THEN BE USED TO SWITCH BACK 
ANO .Fo..t?TH. BETWEEN THE VARIOUS TELETYPES ATTACHED. 

A TELETYPE ADORESS CONSISTS Ql^ A PAIR OF INTEGERS SEPARATED 
8Y A "/", THE FIwST ImTEGER IS CALLED THE "TERMINAL UnIT" NUmBFR; 
THF, SECOND IS CALLED THE "BUFFER ADDRESS" CTHE USER NEED NOT 

Remember these teR^^^s* since they aRe RatheR worthless for most 

PURPOSES), SOME POSSIOlE ADDRESSES* DEPENDING QN THE HARDWARE 
.AVAILABLE^ AREJ "l/^"* "1/15"» "3/7"* "iO/i3"* "2/2"* ETC, 

A SnQBOl PRQGRAh^ CAN ONLY COMMUNICATE WITH TELETYPES THAT ARE 
"ATTACHED" TO IT. A TELETYPE BECOMES ATTACHED TO A SNOBQL PROGRAM 
In. ONE OF Two ways: 

n THE USER tivilTlATES THE JG3 FROM A TELETYPE* WITH AN MCP 
CONTROL CARD STARTING: 

??EXECUrE snobol/snobQl ... 
2) THE USER ATTACHES His TELETYPE TO A RUNNING JOB wiTH 
ONE. Of THE FOLLOWING EQUIVALENT COMMANDS: 
??HUN SNOBOL/SNOBOL*- 
??RUN 3>J030L«- 

A PROGRAM CAN FIND OUT WHICH TELETYPES* IF ANY, ARE ATTACHED BY 

using the statusc) function. any of the teletypes given by this 
Function can, be usej as an i/d device by calling userca), where 

A is the TELETYPE ADDRESS, FOR EXAMPLE* IF IT IS KNOWN THAT A 
TELETYPE WlfH THE ADDRESS "1/5" Is ATTACHED* I/O CAN BE DONE ON 

IT IN The .follow Ing manner; 

USER("l/5") 

Teletype =: "<;"" message "<''" 

answer = teletype /f( no . response ) 

of ctju.rse* if there is only one teletype attached (as is 
always the case)* there is no need to worry about which one 

SINCE ALL TELETYPE I/O WILL BE wItH tHAt ONE TELETYPE, 



i 
i 

• 



• 



ALMOST 
IT IS, 






% C P 'JO 
1 . /( . 4 . 



SPECIAL CHARACTERS FOR THE TELETYPE* 



THE CHARACTERS LISTED BELOW REQUIRE SPECIAL ATTENTION WHEN USED 
WITH TELETYPE I/O, SOME ARE INTERPRETED AS CONTROL CHARACTERS BY 
THE HARDWARE* AND OTHERS ARE PRINTED DIFFERENTLY ON THE LINE PRINTER 



m 
m 

m 
■■m 



3016000 
3017000 
3018000 
3019000 

30i^0000 
30rMOOO 

so'-^aooo 

30P3OO0 
3024000 
30?5000 
30P6000 
3027000 

3o?aooo 

30;?900C 
3030000 
3031000 
3032000 
3033000 
3034000 
3035000 

3036000 
30 3 700.0 
303S000 
3039000 
30^40000 
3041000 
3042000 
3043000 
3044000 
3045000 
3046000 
3047000 
3048000 
3049000 
3050000 
3051000 
30'-32000 
3033000 
3034000 
3055000 
3056000 
3057000 

30')8000 
30^9000 ■ 

3060000 
3061000 
3062000 
3063000 
3064000 

3065000 
3066000 
3067000 
306BO0O 
3069000 

30.70000 
3071000 
3072000 



M <«» 



APa;jrROPriE 



THAN ON THE TELETYPE.. 



PRINTER TTLETYPE OESCHIPTIQN 

"«•" "-<-" "GROUP MARK", OR "LND-OF-MESS AGE" CHARACTER, 

THIS CAN NOT BE READ OR WRITTEN. THE 
CTrL-S COMBINATION 15 THE SAME CHARACTER* 
BUT D0E3NT PRINT, 

THIS CAN BE INPUT* BUT WHEN OUTPuT* IT 
CAUSES A "CARRIAGE RETURN"--rHE aRITE 
HEAD RETURNS TO COLUMN 1* AND NO CHAR 
IS PRINTED. 

THIS CAN ALSO BE INPUT* BUT wHE'M OUTPUT* 

IT CAUSES THE PaPER TO ADVANCE BY ONE LINE, 

WHEN TYPED* THIS CAUSES ERASURE UF THE 
THE CURRENT "BUFFER'S WHEN OuTPUT* IT 
CAUSES A DISCONNECT, 

IS IGNORED ON OUTPUT; WHEN TYPED* IT 
SOMETIMES CAUSES ERASURE OF THE PREVIOUS 
CHARACTER TYPED* AND SOMETIMES ACTS 
LIKE A "<-", THE RULES THAT SAY WHICH 
WILL OCCUR ARE TOO COMPLICATED TQ BE 
OF ANY PRACTICAL USE, 

NORMAL Except for the different character 
USED ON The teletype, most teletypes 
also dont indicate that This character 

IS TYPED BY USING SHIFT-L. 

note that "C" ANO "]" ARE ON THE TELETYPE (SHIFT'J AND SHIFT-MJJ 
THEY JUST ARENT INDICATED ON THE KEYS OF MOST TELETYPES. 






• 



t» >»• 



»t <« 



UP-ARRGiN 



exclamafionj 



«<»» 



BACK-SLASH 



• 



«CP 50 

10, b. CAUSES OF I/O, 

TG EFFECTIVELY UiE SNOBQl I/O' IT IS NECESSARY TU KNOW WHAT 
CONSTRUCTS CAUSE INPUT OR OUTPUT TO OCCUR, THESE ARE DESCRIBED 
HERE IN DETAIL! 

INPUT Occurs when: 

1) An InPuT STRlhjG IS USED AS A STRInG REFERENCE IN HuLES 

OF TfiF forms; 
<str ref> 

<STR REF> <PATTERN> 

<STR REF> <PATTERN> <REPL ACEMENT> 

Input occurs immediately after the string reference is 

FVALUaTED. thus in THE RULE' 



CARD kCB) 



/F(L3) 



• 



• 



m 
m 



3073000 
307^000 
3075000 
SOi^^OOO 
3077000 
3078000 
3079000 
3080000 
3063,000 
3082000 
3083000 
30B4000 
3065000 
3086000 
3087000 

30B6000 
3089000 
3000000 
30Q1000 
30'5?00n 
3093000 
309^000 
309b00Q 
30P6000 
3097000 
3098000 
3099000 
3100000 
3101000 
3102000 
310 3 00 
3104000 
3105000 
3106000 
3107000 
310B000 
3109000 
3110000 
3111000 

3n 2000 
3113000 

311 aooo 

3115000 
3116000 
3U7000 
311,8000 
3119000 
3120000 

3i;^iooo 

SlJ^iiOOO 
3123000 
3124000 
3125000 
3126000 
3127000 
3128000 
3129000 



THE INPUT OCCURS BEFORE FCB) IS CALLED, 
2 3 AM EXPRESSION USES THE VALUE OF AN INPUT STRING. INPUT 
OCCURS WHEN THE NAME IS ENCOUNTERED, THUS IN THE RuLE: 

SIR FChEaO "*'NAl("1")) 

THE INPUT OCCURS BEFORE ALC'I") IS CALLED. 

OUTPUT nccuF;s when' 

1) AN OUTPUT STRING IS USED AS A STRING REFERENCE IN RULES 

OF THE forms: 

<S7R rff> <replacement> 

<STR REF> <PATTERN> <REPLACEMENT> 

output OCCURS IMMEDIATELY AFTER THE REPLACEMENT IS 
FOR EXAMPLE* TO OUTPUT A LINE TO THE PRINTER: 



DONE. 



PRINT 



"CRD = " QUOTE CRD QUOTE 



2) 



33 



NOTE THAT Tn RULES OF THE FORM <STR REF> <PATTERN> <REPLACEMENT> 
ROTH INPUT AND OUTPUT WILL OCCOR IF THE STRING REFEREiMCE IS 
ROTH AN INPUT STRING AND AN OUTPUT STRING. 
A STRING VARIABLE HaS AN OUTPUT STRING FOR 



THE PATTERN MaTCH SuCCEEDS, 
TO THAT VARIABLE IS MADE. 
A FUNCTION IS CALLED, AND AN 
STRING NAMED THE SAME AS THE 
OR A LOCAL VARIABLE. OUTPUT 
THE RETURN OF THE FUNCTION. 



OuTPuT occurs 



ITS NAME* AND 

WHEN THE ASSIGNMENT 



• 



OUTPUT STRING IS EITHER THE 
FUNCTION* A FORMAL PARAMETER* 
OCCURS AT BOTH THE CALL AND 
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U, DEBUGGING 



AI[3S. 



• 



THERE ARE CURRENTLY TWO TYpES OF DEBUGGING AIDS PROVIDED IN 
B55OO SNOBOLS. THERE IS A TRACING FACILITY THAT CAN BE USED TO 
MAKE A RECORD OF VALUES ASSIGNED TO VARIABLES* CALLS OF FUNCTIONS, 
AND TRANSFEHS TO LABELS. THERE Is ALSO AN INTERACTIVE DEBUGGING 
TOOL THAT ALLOWS a USFR AT A TELETYPE TU SUSPEND A PROGRAM* ASK 

Questions about its sjate:* correct errors made by the program, 

AND resume execution. 



%CP 5 

11.1. 



RACING. 



tracing is provided in B5500 snobol fOr strings* functions, and 
LABELS. Output i^Rom tracing goes xo the line printer file* print. 
The functions that control traciNq ares 
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m 



m 

m 
m 



3130000 
3131000 

3132000 
3133000 
3134000 
31 35000 
313o000 
3137000 
3138000 
3139000 

3140000 
31itlO00 

314?000 
31/4 3000 
31/44000 
31/15000 
31/J6000 
31/4 7000 
3lai;i000 
3149000 
3150000 

si-jiooo 

3152000 
3153000 
31^^4000 
3155000 
3156000 
3157000 
3158000 
3159000 
3160000 
3161000 
3162000 
3163000 

3164000 
3165000 

3166000 
3167000 

3lAi)000 
3169000 

3170000 
3171000 
3172000 
3173000 
3174000 
3175000 
3176000 
3177000 

317«000 
3179000 
31B0O00 
31B1000 
3182000 
31B300O 
31 8/1000 
31R50OO 
31H6000 



TRACE5CSl^S?*S3^...) TURNS ON TRACING FOR THE STRINGS NAMED BY 
SJ^ S2* S3* CTC. THIS M£aNS THaT WHeNeVeR A VALUE IS ASSIGNED 
TO ONE rJF' THESE STRINGS* OUTPUT OCCURS GIVING THE STATEMENT 
NUMBER* THE STRING NAME* AND ITS VALUE* IN THE FORM: 

*S <STMT#> <NAME> = " <VALUE> " 

FOR EXAMPLE, TO TURN GN TRACING FOR ALPHA, XV2* AND QyAR* CALL; 

TRACESC"ALPHA","XV2"*"QVAH") 

IF THE VARIABLE ALPHA WERE ASSIGNED tHE VALUE "THIs QNE" IN 
STATMpNT 135* THE F'^ULDWiNq WOUtp BE PRINTed* 

*S 135 ALPHA = "THIS ONE" 

STRTixjG TRACIN<^ l3 CClNSint.RED AN OUTPUT USE OF THE STRING, AND 
TURNING ON Tf^ACliAiG WILL TERMINATE ANY PREVIOUS I/Q USE THE STRING 
MAY HAVE HAD, TRACING OUTPUT OCCURS AT ALL PLACES WHERE OUTPUT 
DCCUrS for STRINGS WITH OUTPUT USE--THAT IS* WHEREVER A VALUE 
IS ASSIGNED, 



«CP 27 

TRACEFCF1,F2*F3, . . . ) TURNS ON TRACING FOR THE FUNCTION NAMED BY 
Fl* F2* F3* ETC. WHEN ANY OF THESE FUNCTIONS IS CALLED* OUTPUT 
OCCURS GIVING THE FUNCTION NAME* THE STATEMENT NUMBER* AND THE 
VALUES OF THE PARAMETERS, IN THE FORM: 

*C <STHT#> <FCT NAMEX <PARAMS> ) 

WHEN THE Function retuRns* more OutpuT occyRs (starting with 

"*R" rather than "*C") GIVING THE RETURN VALUE OR INDICATING 
FAILURE. FOR EXAMPLE* SUPPOSE A PROGRAM HAD CALlEOJ 

TRAC£FC"BLOCK","TlNiE'%"FLXGQ") 

THIS WILL STaRT TRacING FOR THE FUNCTIONS BLOCKC;* TjMeC)* A^D 
FLXGQO. SUPPOSE THAT STATEMENT 93 THEN CALLS BLOCKC A * "3" )* AND 
A = "ITO"; AND THE VALUE ReTURNED IS "X.3". THeN TH£ FOLLOWING 
OUTPUT WILL OCCUR! 

*C 93 BLUCK("IT0"*"3") 
*R 93 BLUCKC ) = "X, 3" 

IF Block had failed* the last line would have been: 

*R 93 BLOCKC) FAILED. 

NCTF THAT TRaCING CAN BE USED wITH BOTH SYSTEM-DEFINED AND 
PRCGRAM-DEFinED FUNCTIONS, 

%CP 13 

TRACELCl1*L2*L3,,.. ) INITIATES TRACING FOR THE LABELS CONTAINED 

IN Ll* L2* L3* ETC. THIS MEa'MS THaT WHENEVER ANY OF THESE LaBELS 
Is ENCOUNTE^RED, UUTPUT UCCyRS GlyiNG THE LABEL* tHE NyMBER OF 



m 



m 



m 
m 
m 



B 



• 



• 



3187000 
31SB000 
3189000 
.3.190000 
31^1000 
3 j 9^^000 
3.1 93 000 
319A000 
3195000 
3196000 
3197000 
3198000 
...31990.00 
3P00000 
3201000 

3.202D0Q 
3203000 
320<ij000 

. .320 5000 
3206000 
3207000 
320800.0 
3209000 
3210000 

.3..? 1.1 000, 
3212000 
321 3000 

3.2.H.00Q. 
3215000 
3216000 
.3.217000 
3218000 
3219000 
3220000 
3221000 
3222000 
3223000 
3224000 
3225000 
3226000, 
3227000 
3228000 
3229000 
32.30000 
3231000 
3232000 
3233000 
3234000 
3235000 
3236000 
3237000 

3238000 
3239000 
3240000 
3241000 
3242000 
3243000 



TIMES IT HA5 BEEN EXECUTtp (INCLUDING THE CURRENT ONL)» AND 
IhE MUMBF.R OF THE PREVIOUS INSTRUCTION. THUS^ IF A PROGRAM 
HAD called: 

TRACELC"HAC(^'V"N0NE'V»'Br'#"B2") 

THEM IF STATEMENT 216 TRANSFERS TO BACK* WHICH HAS PREVIOUSLY 
BEEN EXECUTED 17 TIMES, THE FOLLOWING WILL BE PRINTED: 

,. *L BACK 18 FROM 216 



i 



s:cp 17 

DETaCHCm^t) CAT. BE USED TO TURN OFF TRACING. THE NAME 
OBJECT CONCERNED IS CONTAINED In n; T GIVES THE TYpE 



N CONTAINS A STRING NAME. 
N CONTAINS A FUNCTION NAME 
N CONTAINS A LABEL. 



OF THE 

AS K0LL0WS5 



"S" 


MEANS 


THAT 


»» fr « 


MEANS 


THAT 


« 1 M 


MEANS 


THMT 



ONLY THE FIR.S1 CHARACTERS OF T 
IS ASS.UMED.. . THUS* TU TURN OFF 
THE PROGRAM COuLU CALL ANY OF: 

DETACH^ ••ALPHA") 
nETACH("ALRHA"*"S") 
DETACH ("ALPHA", "STRING") 
,. D E.T,A..C H .(.. ". A L P H A " , " S L R K L E " ) 



IS LOOKED at; IF T IS NULL* "S" 
TRACING FOR THE STRING NAMED ALPHA* 



• 
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11.2. 



INTERACTIVE DEBUGGING. 



AN INTERACTIVE DEBUGGING AID HaS BEEN IMPLEMENTED FDR US£ WITH 
A TELETYPE. BASICALLY* IT CONSISTS OF SUSPENDING A PROGRAM AND 
ASKING THE INTERPRETER QUESTIONS ABOUT ITS STATE. IF ERRORS HAVE 
BEEN MADE, vALUES OF STRINGS CAN BE CHANGED* AND THE PROGRAM CAN 
BE RE-INITIATED EiThER WHERE IT WAS SUSPENDED OR AT ANY OTHER 
LABELED IJ^STRUCT ION . 

a program can be suspended, and the debugging routine initiated, 
by any of the following methods: 

1) The' PrOgraM can call suspend( )--with null parameter. 

2) IF A -DEBuG CARD OCCURRED DuRiNG COMPILATION, SUSPENSION 

will occur just before the first instruction starts. 
3) Suspension occurs when the program is runmng in "debuG" 

MODE AND THE PROGRAM ENCOUNTERS A LlMiT SET DURINg A PREVIOUS 
SUSPENSION. 
4) THE PROGRAM COMMITS ANY OF THE VARIOUS PROGRAM ERRORS THAT 

ARE NORMALLY FATAL. THESE ARE ERRORS SUCH AS CALLING UNDEFINED 
FUNCTIONS, TRYING TO EXECUTE A STATEMENT WITH A SYNTAX ERROR, 
TRANSFERRING TO AN UNDEFINED LABEL* ETC, 

A PROGRAM RUNS EITHER IN NORMAL ("RUN") MODE OR IN "DEBUG" MODE. 
"DFBUG" MODE CAUSES CHECKING FOR A NUMBER OF PROGRAM CONDITIONS 
WHOSE OCCURENCE WILL CAUSE THE PROGRAM TO BE SUSPENDED, FOR A 



# 



• 









32A4000 
3245000 
3?/4600O 
32'47O0O 
3?^48000 
32^^9000 
3S50000 
3251000 
3252000 
3253000 
3254000 
3255000 

3256000 

3257000 

3258000 

. 3259000 

3260000 
3261000 
3262000 
3263000 
3264000 

3265000 
3266000 
32f»7000 
3266000 
3269000 
3270000 
3 2 7" 1 00.0 
3272000 
3273000 
3274000 
3275000 
3276000 
327 7000 
3278000 
3279000 
3280000 
32P1000 
3282000 
3283000 
3264000 
3265000 
32S6000 
3287000 
32^8000 
3289000 

3290000' 
3291000 

3292000 
3293000 
3294000 
32950OO 
3296000 
3297000 
3298000 
3299000 
3300000 



LIST Qf THE LIMITS THAT CAN BE SET BY THE 
COMMAND BELOW. A PROGRAM CAN BE IN DEByG 
FOLLOWING REASONS: 



PROGRAMMER* SEE THE 
MOOE FOR ANY OF THE 



"RUN" 



1) THE PROGPa^ contained A -DEBUG CONTROL CARD. 

2) THE PROGRAM WAS SUSPENDED EARLIER. 

3) THE PROGRAM HAS CALLED MOD£( "DEBUG" ) . 

DEBUG MODE 13 TURNED OFF BY CALLING MQDEC'RUN"), IF This IS DONE* 
THE ONLY WAY TO GET BACK TO THE DEBUGGING ROUTINE IS FOR THE PROGRAM 
to CALL SU5PENDC) OR MODE ( "DEBUG" ) * SINCE MODEC"RUN") TURNS OFF ALL 
THE LIMIT CHECKING ASSOCIATED WITH DEBUG MqDE. 

WHEN A PROGRAM IS SUSPENDED* THE SYSTEM TYPES OUT "SUSPENDED" 
AND IS THEN WaITJNG FOR A COMMaND. THE COMMANDS THaT HaVE BEEN 
IMPLEMENTED AS QF This WRITING ARE! 

%CP 23 

TYpe <NAME>«- 

THIS CAUSES THE VALUE OF THE VARIABLE <NAME> TO BE TYPED IN 
THE FOLLOWING FORM* 

' "" <NAME> = " <VaLUE> " 

IF THE PROGRAM DGESNT cONTAiN <NAME>* AND IT HASNT B^EN CHEATED 
By iNDIREGllaN, THE RESPONSE ISS 

<NAME> NOT IN USE 



In order To allow the user to use ANY STRING NAME THAT CAN 
BE ENTERED FROM A TELETYPE* THE FOLLOWING CONVENTION Is MADE? 
THERE IS' EXACTLY ONE BLANK AFTER "TYPE"j THE REST OF THE INPUT 
STRING IS THE <NAME>. THUS ANY CHARACTER READABLE FROM A 
TELETYPE CAN BE USED IN <NaME>* INCLUDING BLANKS, FOR EXAMPLE* 
THE COMMAND! 

TYPE *AA/3 81«- 

MIGHT GET THE RESPONSE! 

*AA/3 Bl = "437 A+B 4" 
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Set <name>«- 

<VALUE>«- 

THIS COMMAND* REQUIRING TWq INPUT STRInGS* ASSIGnS THE STRInG 
<VALUE> IB <NAME>, THE FIRST INPUT* SET <NAME>«-* PRODUCES 
A RETUrN/LINE FEED FrQM SNOBOL* aND IT IS THEN WAITING FOR THE 
<VALUE>. THE CONVENTIONS FOR <NAME> ARE THE SAME AS FOR THE 
TYPE COMMAND. FOR EXAMPLE* THE THREE COMMaNOSJ 






SET AB3«- 

N, 47,-27. Cl<- 

TYPE AB3* 



# 






• 



m 



• 

• 

• 



3301000 
3302000 
3303000 
330^000 
33O!5O0n 
3306000 
3307000 
33OBO0O 
3309000 
3 31,0000 
3311000 
3312000 
3313000 
331^000 
3315000 
3316000 
3317000 
331ROOO 
3319000 
3320000 
3321000 
3322000 
3323000 
332A000 
3325000 

3326000 
3327000 

33PB000 
3329000 
3330000 
3331000 
3332000 
3333000 
333^000 

3335000 
3336000 
3337000 
333^000 
3339000 
3340000 
33/ilOOO 
33';i2000 
3 3A3000 

33AAO0O 
33ii5000 

3 3 /J 6000 
33'^t700O 

3348000 
3349000 

3350000 
3351000 
3352000 
335 3000 
3354000 
3355000 
3356000 
335/000 



I' ILL GLT THE RESPONSE: 
AB3 = •'N.47.-27,C1" 

BfCAUSE IRANSMlSoION ERRORS DO OCCUR FAIHLY OFTEN WITH TELETYPES, 
JT IS ADVISABLE TO FOLLOW SET COMMANDS WjTH TYPE COMMANDS TO 
VERIFY THAT THE CORRECT VALUE HAS BEEN ASSIGNED. 
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LABEL <LABEL>«- 

THIS COMMAND SIMPLY TELLS THE USER HOW MANY TIMES THE LABEL HAS 
BEEN EXECUTED SQ FAR. IF THE LABEL ISNT DEFINED* THE RESPONSE 
WILL be: 

<LABEL> NOT DEFINED 

LIKE WITH THE TYPE AND SET COMMANDS* THERE IS EXACTLY ONE BLANK 
BETWEEN "LABEL" AND <LABEL>. 






%CP 41 
RUN <I 
■I HI 
UP 
THE 
SEC 

AFT 
GET 



TER 
THE 
RES 



NTEGrR> FROM <LABEL> TO <lABEl> <LABEL> <LABEL> • • . *• 

S COMPLICATED COMMAND RE-iMTIATES EXECUTION* AND ALSO SETS 

THE cnNDITlONS THAT ARE TO CAUSE SUSPENSION LATER, ALL OF 

COMMAND aFtEK "RUN" IS OPTIONAL* AND BREAKS DOWN INTO SEVERAL 
TjONS, THAT ARE REALLY PARAMETERS, 

IF <INTEGF.F<> Is USED* THEN jHE PROGRAM ^«ILL BE SUSPENDED 
ER IT EXECUTES <1NTeGER> INSTRUCTIONS* IF IT MANAGES TO 

jHAT FAR AT ALL. 
If.- fHOM <LABeL> IS US^D* Tf^E CURRENT INSTRUCTION WILL Be 
MINATED CAS IF IT HAD FaIlED)* AND EXECUTION WILL RESUME AT 

STATEMENT LABELED <LABEL>. IF <LABEL> ISNT DEFINED* THE 
PONSE WILL be: 



<LABEL> NOT DEFINED 



AND T 
IF 
INTER 
THE P 
SEPAF^ 
BE In 
ISNT 
THE P 
NUMRE 
SET T 

IS nc 

WILL 
AS A 
IT* T 
ANY). 
SO 



HE PROGRA 
THE in < 
PRETED AS 
ROGRAM TR 
ATFD BY B 
TERPRETEO 
DEFINED* 
ROGRAM WI 
R Of- LARE 
16* THQ 
MAND FOR 
Be "TOO M 
SPECIAL C 
HE LIMITS 



M WILL 

LABEL> 

A LIS 

lES TO 

LANKS- 

as pa 

THE "N 
LL REM 
LS THA 
UGh IT 

MORE. 
ANY LA 
ASE* I 
WILL 



REMAIN 
<LABEL> 
T OF LAB 
EXECUTE 
-ANY OTH 
RT OF A 
UT OEFIN 
AIN SUSP 
T CAN BE 

May be 

IF TOO 
BELS"* A 
F "TO" I 
BE THE S 



SUSPEND 
... PA 

ELS THA 

THEM. 
ER DELI 
LABEL* 
ED" RES 
ENDED. 

GIVEN. 
INCREAS 
MANY LA 
ND THE 
S USED 
AME AS 



ED. 
RT IS 
T ARE 

NOTE 
MITERS 

IF A 
PONSE 

THERE 

THIS 

ED IN 

BELS A 

PROGRA 

WITHOU 
THOSE 



INCLUDED* IT IS 

TO CAUSE SUSPENSION IF 

THAT THE LABELS ARE 

(SUCH AS COMMAS) WILL 
LABEL IS USED THAT 
WILL BE GIVEN* AND 
IS A LIMIT To THE 
LIMIT IS CURRENTLY 
THE FUTURE IF THERE 
RE GIVEN* THE RESPONSE 
M WILL REMAIN SUSPENDED 
T ANY LABELS FOLLOWING 
USED THE LAST TIME (IF 



ME EXAMPLES OF RUN COMMANDS ARE; 



RUN*- 



< * 



m 

m 



• 



3358000 

335yooo 

3360000 
3361000 
336iJ000 
3363000 
336^000 
3365000 
3366000 
3367000 
3368000 
3369000 
3370000 
3371000 
3372000 
33730.00 
3374000 
3375000 
3376000 
3377000 

3378000 
3379000 
3380000 
33B100O 
338'^000 
3383000 
3384000 
33B5000 
3386000 
3367000 
33R8000 
33H900O 
3390000 

3391000 
3392000 

3393000 
3394000 
3395000 
3396000 
3397000 
3398000 
3399000 
3400000 
3401000 
34Q2000 
3403000 
3404000 
3405000 
3406000 

3407000 
3408000 

340900Q 
3410000 

34U000 
3412000 
34 13000 
3414000 



RUN 75<- 

RUN FROM HNT3 TO HNT5 
RUM 40 FROM GIN,?*- 
RUN 500 FROM A3 TO Bl 

Run from furri to*- 

RUN 1000 TO*- 

RUN 3 ♦- 

RUN FROM STAR!*- 



• 



HNT8*' 

AAl APPLY3 ERROR EOJ ALTRY*- 



S>CP 2 

Em*- 

THIS 



«CP 2 

ABORT*- 
THIS 



CAUSES the: PROGRAM yO TERmINAjE NORMALLY. 



CAUSES ABNOHMAL TERMINATION OF THE PROGRAM. 
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WHY<- 

this causes the reasdncs) for suspension to be typed, some 
possible responses to this arei 

Rule limit hit 
label limit hit 

SUSPENDO CALLEO 
FATAL ERROR 
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WHERE* 

THIS CAUSES THE jjYsxLM jO TYPE OUT WHERE THE PROGRAM WAS SUSPENDED 
CSTATeMfNT NUMBEf^ ANf] LAST LABeD ANq HOW MANY RULES HAVt BeeN 
EXECUTEI) SO FAR. 






^SECTION l'^ 
«PAGE 1 

12. MjScEL 



,aNeQus. 



%CP 6 
THE FGLi 






OWING CHARACTERS HAVE SPECIAL MEANING IN COLUMN 1 

MOP CONTROL CARD 

SNO^OL CUNTROL CARD 

CONTlNUAriQN CARD (INVALID FROM TELETYPE) 

COMMENT CARD 

COMMENT CARO 



as 

# 






3m50OO 
3416000 
34 17000 
34] «000 
341 9000 
34;^0000 
3421000 
3422000 
34P3000 
34P4000 
3425000 

34?6000 
3427000 
342B000 
3429000 
34^0000 
34 31000 
34 3 2000 
343 3000 
34 54000 
34 3b000 
.3,4.3.6000. 
343*7000 
3438000 
3439000 
3440000 

3441000 
.3.4 .4? 0.00. 
3443000 
3444000 

3445000 
3446000 
3447000 
3448000 
3449000 
3450000 
3451000 
3452000 
3453000 
34 54.000, 
3455000 
3456000 
34.3,7000 
3458000 
3459000 
34 60,00.0 

3461000 
3462000 
3463000 
3464000 
3465000 
3466000 
3467000 
3468000 
3469000 
3470000 
3471000 



%C.P 3 

A LABEL IS AMY NiJN-fMULL STRING PRECEDING THE FIRST BLANK ON A CARD. 
THE FIRST CHARACTER CAN BE ANY EXCEPT THOSE LISTED ABOVE; THE REST 
OF THE LABEL CA^^ USL ANY CHARACTERS BUT BLANKS, 



* C f ' 4 

WHEN E^'TERING A PROGRAM FROM A TELETYPE, ANY INPUT 
'•#" WILL BE TREATED AS AN ERROR--THE COMPILER WILL 
TYPE "TRY AGAIN"^ AiMO ASK FQR MORE INPUT. 



ENDING WITH 
DISCARD IT 



%CP 5 

THE GO-TO PaRT CaN BE SET OFF BY EITHER " /•♦ OR ♦•;", IF " /" IS 

USED Cf^OTE THE BLANK), THE NEXT CHARACTER MUST BE EITHER " ( '% "S"* 
OR "F", A COLON ("!") CAN Be SuRRQUNDeD BY ANY NUMBER OF BLANKS, 

Including none,, and can stand auOnE with go go-to part following 
It, In which case it is ignored. 



• 
• 
# 



^CP 2 

TO separate a paite«n or 

" = " QR ".-" CAN BE UbED. 



string Reference from a replacement* either 

THE compiler thinks THEY ARE EQUIVALENT. 



%CP 7 

THE "ILLEGAL CHARACTER","?", CANT BE READ FROM A CARD READER EXCEPT 
IN COLUMN 1, IN WHICH CASE IT INDICATES AN MCP CONTROL CARD, ANY 
CARD CONTAINING "?" ANYWHERE ELSE WILL BE THROWN OUT BY THE CARD 
READER.' AND. THE JOB WILL USUALLY NOT BE RUN. THIS CHARACTER CANT 
BE INPUT FROM A TELETYPE* EITHER* SINCE ANY INPUT CONTAINING "?" 
WILL BE INTERPRETED AS A MESSAGE TO THE MCP, THERE IS NO PROBLEM 
WITH WRITING A •'?•' UN THE LiNE PRINTER OR ON A TElET.YPE. 



• 



%CP 9 

THERE ARE THREE STRINGS WHICH 

NON-NULL VALUES, THEY aRE: 



B55qo SN0B0L3 INITIALIZES TO HAVE 



QUOTE CONTAINS A 
..QMARK . = .."?" 
ARROW = "«-" 



QUOTE 



THE STRINGS QMARK 
SINCE NEITHER CAN 



AND ARROW ARE 
BE INPUT FROM 



PROVIDED MAINLY 
A TELETYPE. 



FOR TELETYPE USERS^ 



«CP 2 

THE SYSTEM LIMIT ON STRING SIZE IS 8181 CHARACTERS. 

CREATE A STRING LONGER THAN THIS WiLL CAUSE ABNORMAL 



ATTEMPTING TO 
TERMINATION, 



3^72000 
3^73000 
3474000 
3A75000 
3476000 
3477000 
3478000 
3479000 
3480000 

3^81000 
3462000 
3483000 
34B4000 
3485000 
3486000 
3487000 
34R8000 
3^89000 

34 90000 
3491000 
3492000 
349300.0 
3494000 
3495000 
3496000 
3497000 
3496000 
3499000 
3500000 

3501.000 
3502000 
3503000 
3504000 
3505000 
3506000 
3507000 
3508000 
3509000 
3510000 
35U0O0 
3512000 

3513000 
3514000 
3515000 
3516000 
3517000 
3518000 
3519000 
3520000 
3521000 
3522000 
3523000 

35 2 4 000 
3525000 
3526000 
3527000 
3528000 



%C P 9 

THE CCNiCATENATE OPERATOR IS A BLANK, 
WITH THE FaLLOwI^G EXCEPTIONS! 



BLANKS ARE USUALLY OPTIONAL* 






1) 
2) 
3) 



4) 



BEFORE THt STRING REFERENCE. 

BETWEEN TWO IDENTIFIERS. 

BETWEEN A\ IDENTIFIER AND A FOLLOWING "C"» 

A CONCATENATION OF A STRInG AND A GROUPING 

CALL (WHICH HAS NC BLANK), 

BEFORE A "/" USED AS A GO-TC DELIMITER. 



TO DISTINGUISH 
FROM A FUNCTION 



• 
• 



%CP 4 

AMY STRING CAN BE USED AS A STRING NAME, INCLUDING THE NULL STRING. 

In PARTICULAR* THE FOLLOWING IS A VALID EXPRESSION! 



%CP 5 

IF A Gn-Tu 

OR "F" CAN 



PART Has Both a 

BE OMITTED FROM 



SUCCESS AND A FaIlURE EXIT, 
THE SECOND PART, ThUSi 



THEN THE "S" 



/S(A)CB), 
!F(XA)(X7) 



l^iEANS /SCA)FCB) 
MEANS !FCXA)S(X7) 



^CP 1 1 

SEVERAL STATEMENTS CAN BE PUT ON ONE CARD. THEY ARE SEPARATED BY 
SEMjCGLONS ('♦;"), CONTINUATION CARDS CAN BE USED AS USUAL. OF 
COURSE* SINCE A LABLL MUST START IN COLUMN 1* ONLY THE FIRST STATEMENT 
ON A CARD CAN BE LABELED. FOR EXAMPLE* 



• 
• 



L 



= "." /S(L)* 



t» , » 



B /(LOOP) 



MEANS THE SAME AS! 

L A ".,'•=:"."/ S C L ) 
R = A "*" B /(L00P5 



%CP 15 

NO INTERNAL DISTINCTION IS MADE BETWEEN FOrMAL PARAMETERS AND LOCAL 
VARIABLES OF PROGRAM-DEFINED FUNCTIONS. IF A FUNCTION IS CALLED WITH 
MORE ACTUAL PARAMETERS THaN THERE aRE FORMaL PARAMETERS* THE EXTRa 
PARAMETERS wiLL BE ASSIGNED TO LOCAL VARIABLES. FOR EXAMPLE* IF FC) 
IS DEFINED BY! 

DEFINECTC A*R)"*"Fi"*"C*D") 
THEN IF THE PROGRAM CALLS FC " + "*"-"* "x" )* THE VALUES AT THE ENTRY 



m 
m 



m 



m 

m 



'-m 



# 



35290Q0 
3530000 
3531000 
3532000 
3533000 
353^000 
3535000 
3536000 
3537000 
3538000 
3539000 
3540000 
35ai000 
3548000 
3543000 
3544000 
3545000 
3546000 
35'+7000 
3548000 
3549000 
3550000 
3553000 
3552000 
3553000 
3554000 
3555000 
3556000 
3557000 
3556000 
3559000 
3560000 
3561000 
3562000 
3563000 
3564000 
3565000 
3566000 
3567000 
3568000 
3569000 
3570000 
3571000 
3572000 
3573000 
3574000 
3575000 
3576000 
3577000 
3576000 

3579000 
3560000 
3581000 
3582000 
3583000 
3584000 
3585000 



POINT* F\f INILL cEJ 



A = 

B = 

C = 

D = 



»» + '» 

"X" 



%APPENinix ^ 

%PAGE 1 
APPENDTX A, 



8NF DEFINITIONS FOR SNQB0U3, 



J = 



<TNSTRUCI lON> 

<LARELEO IMST> 
<UNLABELED InST> 
<INST> 



<RULh;> 



<STR REF> 

<PATTFRN> 



<replace>^ent> 
<rpl delimiter> 

<EXP:^ESSI3N> 



<ELEMENT> 
<NAM£D E>:PR> 
<VAl,uE EXPR> 



<COMCATEKiATE UP> : i 
<lDENTiriER> 



<LlTeRAL> 
<GRPuPlNfi> 
<FCT CALL> 
<FCT NaME> 
<PARAMS> 

<ARITH EXPR> 



t is 

t : = 
: ts 



<LABELEl) INST> 
<UNLABELED INST> 
<LABEL> <UNLA8ELEn INST> 
<8LANKS> <iN3T> 
<HULE> 

<GO-TO PART> 
<RULE> <GQ'-TO PART> 
<STR REF> 



<STR REF> 
<STR REF> 
<STR REF> 
<ELtMENT> 
<CLEMENT> 
<STR VAR> 

<pattern> 
<pattern> 



<PATTERN> 
<REPLACEMENT> 
<PATTERN> <REPLACEMENT> 



<PAT7eRM> 
<BACK REF> 



<RPL DEUIMITER> <EXPRESSI0M> 



<ELEMENT> 

<EXPRESSION> <CQNCATENATE 0P> <£LEMENT> 

<EMPTY> 

<NAMED EXPR> 

<VALUE EXPR> 
<ID£NTIFIER> 

S <ELEM£NT> 
<LITERAL> 
<GROUPING> 
<FCT CALL> 
<ARITH EXPR> 
<BLANKS> 

<letteR> 

<IDENTIPIER><LETTER> 

<DIGIT> 

<I0ENTIFIER><DIGIT> 



<IDENTIFIER> , 
" <STRING> " 
C <EXPRESSI0N> 



) 



<FCT NAME>( 
<IDENTIFIER> 
<EXPRES3I0N> 
<PARAMS> f 
<A-TERM> 



<PARAMS> ) 



<EXPRESSI0N> 



■ 









m 

m 



m 

m 



358600C 
3567000 
3588000 
3589000 
3590000 
3591000 
3592000 

3593000 
3594000 
3595000 
3596000 
3597000 
3598000 
3599000 
3600000 
3601000 
3602000 
3603000 

3604000 
3605000 

3606000 
3607000 
360B000 
3609000 

3610000 
36U000 
3612000 
3613000 
361^000 
3615000 
3616000 
3617000 
361B000 
3619000 
36?0000 
3621000 
362^'000 

362^000 
3625000 
3626000 
3627000 
362«000 

3629000 
3630000 

3631000 
3632000 
3633000 
36^^000 
36 35000 
3636000 
3637000 
3638000 
3639000 
364Q000 
36/13000 
3642000 



<A-TERM> 
<M-TfRM> 
<r-TrRM> 
<ARITH eLT> 

<MUL 0P> 



<EXP 0P> 
<PATTfR^> 



<STr VAR> 

<ARB VAR> 
<BAL VAR> 

<fixed-l.e.ngth VAH> 

<8ACK RFF> 

<GG-tO part> ; S 

<GO-TO nF:iIMlTER> 



: = 



<gO-tos> 



<UNCnNOITinNAL GU 

<SUCCES5 GO-TD> 
<FAlLURfc: GO-Tn> 

<LABEL txPR> 



<RESERVED LABEU> 



<M-TERM> 
<E-TERM> 
<ARITH ELT> 



<A-TERM> 
<A-TERM> <ADO AP> 
<M-TERM> 

<M-rERM> <MUL 0P> 

<£-TERM> 

<E-'TERM> <EXP 0P> 

<ARITH EIT> 

<NAMED EXPR> 

<GROUPINQ> 

<rCT CAUL> 

<LnERAL> 

+ 



* 

/ 

** 

<ELEMENT> 
<STR VAR> 

<pattern> 
<pattehn> 
<arb vah> 

<8AL VAR> 

<FIXED-LENGTH 

** 

* <NAMtD EXPR> * 
*(3* 

*C <NANED EXPR> )* 

!= */ <expression> 

;= * <NAMED EXPR> 
!= <NAH£D EXPh> 
<GO«-TO DELINItER> <GQ-tOS> 
= <BLaNKS> / 



• 

• 

• 
• 



<pattern> 

<BACK REF> 



VAR> 



/ <EXPRESSI0N> * 



■TO 



<UNCONDlTiai\JAL gO"TO> 

<success go-to> 
<failure go-to> 

<SUCCESS Ga-TQ> 
<FAILURE GO-TO> 
> :!= C <LABEL 
SC <LABEL EXPR> 
FC <LABEL EXPR> 



<FAltURE GO-TQ> 
<SUCCESS GO-TQ> 
EXPr> ) 

) 
) 



: s 



<RESERVED 

<LABEL> 
<COMPUTED 

END 
RETURN 
FRETURN 



LABEL> 
LABEL> 



^APPENDIX 
XPAGE 1 
APPENDIX B 



B 



BNF NOTATION. 



FDR THdSF NOT FAmIuIAR WITH "BnF" CBACkUS-NAUR FQRM OR 
BACKUS hjORMAl FOHM)# A BRIEF DESCRIPTION FOLLOWS. BNF IS 



• 






• 



# 



3643000 
3644000 
36/45000 
3646000 
3647000 
3648000 
3649000 
3650000 
3651000 
3652000 
3653000 
3654000 
3655000 
3656000 
3657000 
3.658,0.00 
3659000 
3660000 
3661000 
3662000 
3663000 
3664000 

3665000 
3666000 

3667000 

3666000 

3669000 
3670000 
3671000 
3672000 
3673000 
3674000 
3675000 
3676000 
3677000 
3678000 
3679000 
36«0000 
3681000 
3682000 
3683000 
3684000 
36.<i5000 
36R6000 
3687000 
3688000 

36B9000 
3690000 
36^1000 
369^000 
3693000 

3694000 
3695000 

3696000 
369^000 
3698000 
3699000 



SOMF/A'HAT STaNDAHDIZLD METHOD OF PRECISELY NOTATING SYNTACTIC 
DEFINITIONS OF CERTAIN TYPES, 

QUANTITIES WHICH MUST APPEAR AS A CERTAIN STRING OF CHARACTERS 
ARE REPRESENTED BY THAT STRING OF CHARACTERS, VARIABLE STRINGS 
ARE GIVEN A NAME, WHICH lb SURROUNDED BY "BNF BRACKETS"* "<*' 
ANO ">". FfiR EXAMPLE* THE MCP CONTROL CARD: 

?DATA <NAME> 

MUST CONTAIN THE LITERAL STRING "?DATA" FOLLOWED BY A <NAME>* 
WHICH MUST BE DEFINED ELSEWHERE. SOME EXAMPLES OF CARDS THAT 
SATISFY THIS FORM ARE: 

?DATA ALPHA 

?DATA XXZZYY 

. . ?.DATA DATA 

?DATA AB13X47 

A VARIABLE ITEM MaY BE DEFINED BY USING A "BNF EQUATION" TO 
DEFINE IT In TERMS OF OTHER ITEMS. A DEFINITION IS OF THE FORm: 

<NAME> ::= <DEFINITI0N> 

FOR EXAMPLE* A FUNCTION CALL MAY BE DEFINED BY? 

<FCT CALL> S'= <FCT NAHE>C <PARAM5> ) 

WHERE <FCT NaME> aND <PaRaM3> ARE DEFINED BY OTHER EQUATIONS, 
IF THERE ARE SEVERAL ALTERNATE DEFINITIONS OF AN OBJECT, SEVERAL 
EQUATIONS ARE GIVEN, IF A VARIABLE HAS SEVERAL DEFINITIONS* THEN 
THAT VARIABLE HaS ALTERNATE DEFINITIONS, ANY OF WHICH CAN 
APPLY jN A GIVEN iNaTANCE, THiS WAY* RECURSIVE DEFINITIONS ARE 
simple' (AND QUITE COMMON). FOR EXAMPLE: 

<PARAmS> ::= <EXPRESSI0N> 

<PARAMS> ::= <PaRAMS> * <expressiqn> 

THIS MEANS THAT <PAHAMS> CAN BE A SINGLE EXPRESSION* OR IT CAN 
BE ANY NUMBER OF EXPRESSIONS SEPaRaTED fiY COMMaS, WHEN SEVERaL 
ConSECuTIvE DEFINITIONS ARE GlyEN FoR THE SAME VARIABLE* IT IS 
RAThER CUSTOMARY (TO MAKE READING EASIER) TO OMiT ThE LEFt-mAND 
SIDE OF THE EQUATION IN AlL BUT THE FIRST, SQ THE ABOVE DEFINITION 

COULD Have been; 



• 



• 

# 

• 
• 



<PARAMS> 



<expression> 

<PARAMS> * <EXPR£SSI0N> 



FOR LOTS Of examples of bnf definihons* See the PREVIOUS appenoix, 

NOTE THAT A FEW ItEHS ARENt DEFINEIj--IN PARtKuLAR* <BLANKS> AND 
<EMPTY> ARE CONSlDEKED TOO DBVlOUS TO BOThER DEFINING, IT IS 
RATHER COMMON FOR SOME TERMS TO BE DEFINED BY ENGLISH-LANGUAGE 
DEFINITIONS. WHEN BNF IS UNSUITEO FOR THE .JOB. THIS IS DONE FOR 
A FE>J SYMBOLS IN THE SNOBOlS DEFI NI TI ONS--SEE THE APPROPRIATE 
SECTION OF THE MANUAL FOR THEIR DEFINITIONS. 



# 



m 



# 



37000 


%a_ppenBix 


c_:. 






3701000 


^PAGE 


: 1 








3702000 


APPEr^DlX ( 


:, 85500 CHARACTER SET. 


.37.0 30 00 












370^*000 


CHAR 


ncT 


DEC 


PUNCH 


COMMENTS 


3/ObOOG 
















3706000 


1 


I 


1 


I-' ■■■■,■■ 




3/0 7000 


P 


2 


2 


2 




3706000 


3 


3 


3 


3 




3709000 


4 


4 


4 


4 




3710000 


5 


5 


5 


5 




3711000 


6 


6 


6 


6 




3712000 


7' 


7. 


7 


7 




3713000 


8 


10 


8 


8 




37WK)00 


9 


U 


9 


9 




371,5000 


# 


12 . 


10 


3-8 




3716000 


(S 


13 


11 


4-6 




3717000 


? 


14 


32 


2-8 


OR ANY ILLEGAL PUNCH 


3718000 


• 


15 


13 


5-8 




3719000 


> 


16 


14 


6" 8 




3720000 


> 


17 


15 


7-8 


TELETYPES DISCONNECT 


3721000 


+ 


20 


1^ 


12-2-8 




37?2000 


A 


21 


17 


12-1 




3 7-^3noo 


B 


22 


Irt 


12-2 




37^4000 


C 


23 


19 


12-3 




37?5000 


D 


24 


20 


12-4 




3726000 


E 


25 


21 


12-'3 




3727000 


F 


26 


22 


12-6 




37?8000 


G 


27 


23 


12-7 




3729000 


H 


30 


24 


12-8 




3730000 


I 


3l 


25 


12-9 




37 31000 


• 


32 


26 


12-3-8 




3732000 


C 


33 


28 


12-4-8 




37 3 3000 


A 


34 


29 


12 




373<4000 


c 


3 b 


30 


12-5-8 




3735000 


< 


36 


.iO 


12-6-fl 




37 3 60 00 


t- 


37 


31 


12-/-8 


TELETYPES LND-OF-MESSAGE 


3737000 


X 


40 


32 


U-2-8 


TELETYPE! BACKWARD SLASH 


373H000 


J 


41 


33 


11-1 




3739000 


K 


4 2 


34 


11-2 




3740000 


L 


43 


35 


U-3 




3741000 


M 


44 


36 


11-4 




3742000 


N 


45 


37 


11-5 




3743000 


a 


46 


38 


11-6 




3744000 


p 


4 7 


39 


11-7 




3745000 


G 


50 


40 


11-8 




3746000 


R 


51 


4 1 


11-9 




3747000 


$ 


52 


42 


n-3-8 




3748000 


it 


33 


43 


11-4-8 




3749000 


- 


54 


44 


11 




375OOOO 


) 


55 


45 


n-5-B 




3751000 




56 


4G 


11-6-8 




37^2000 


< 


5r 


47 


11-7-8 


TELETYPE; APOSTROPHE* CARRIAGE 


3753000 


=5l,ANK 


60 


A 8 


NONE 




3754000 


/ 


61 


4 9 


0-1 




3755000 


S 


62 


50 


0-2 




3756000 


T 


63 


51 


0-3 





i 

• 






• 



RETURN 



s 



3/57000 U 64 52 O-/4 
3758000 V 65 53 0-5 



i 
i 



• i 3759000 W 66 54 0-6 

3760000 X 67 55 0-7 

3761000 Y 70 56 U-8 

W 376^000 7. 7% 57 0-9 

3763000 , 72 5fl 0-3-8 
3764000 % 73 39 0-4-8 

• 3765000 / 7ii 60 0-2-8 TELETYPE' UP^ARROW, LINE FEED m 
3766000 = 75 61 0-5-8 ' 

3767000 ] 76 62 0-6-8 

• 3768000 ♦• 77 ^3 0-7-8 : ^ 

3769000 ^ • 

'^^ 3770000 ^APPENDIX U 

'W 3771000 %PAGE 1. ^ 

3772000 APPENDIX 0. RUNNING JOBS FROM A TELETYPE. 
i 3 7/3000 

:• 3774000 THIS APPFNOIx IS INTENDED TO DESCRI9E THE SOMEInHaT INTRICATE m 

I 3775000 METHODS OF RUNNING a PRUGRam (IK PARTICULAR, A SNOBOL PROGRAM) FROM 

s^ 3776000 A TELETYPE. AND HQPLFULLY TO SOMEWHAT AMELIORATE THE INITIAL SHOCK 

!• 3777000 OF tRYTnG TO USE THIS RATHER PRIMITIVE AND FRUSTRATING INTERACTIVE m 

t 3778000 I/O DEVICE. THIS DESCRIPTION IS FAR FROM COMPLETE* AND HUE TO THE 

1^ 3779000 CONSTANT REVISION (AND OCCASIONALLY IMPROVEMENT) OF THE MCP* DFTAILS 

m 3760000 CAN BE EXPECTED TO CHANGE AT ANY TIME* USUALLY WITHOUT WARNING. THE m 

37Q1000 NOVICE IS WARNED THAT THE MCP WAS DESIGNED FOR THE USE OF PEOPLE WHQ 

3782000 ARE VERY FaMILIaR WITH IT, aND DOES VERY LITTLE TO HELP THOSE WHO DONT 

• 3783000 KNOW HOW IT BEHAVES. ^ 

378«000 THE FIRST THING NECESSARY IS TO "LOG IN"* THAT IS* TO TELL THE MCP 

3785000 WHO YOU ARE. THIS IS DONE BY TYPING! 

• 3786000 ^ 
3787000 ?LI <I.0,>*- ^ 

3788000 

• 3789000 AT THE UNIVERSITY OF WISCONSIN* <I.D.> IS THE USER AnO PROJECT m 

3790000 NUMBERS, IN THE FORM: ^ 

3791000 

• 3792000 <I.0,> = <USER'*> / <PROJ)i»> m 

3 79 3000 ^. 

3794000 THE i^CP WiLL RESPOND TO THE LOG-lN MESSAGE WiTH SOME SORT OF ACKNOWLEO- 

• 3795000 GEMENT* AND ThE US^^H CAN THEN InOiCATE WHAT PROGRAM hE WANTS TO RuN 

3796000 BY TYPI.niG A ??EXECUTE CONTROL CARD. THIS MESSAGE CONTAINS THE SAME 

3797000 INFORMATION AS THE MCP CONTROL CAROs OFsCRIBED IN SECTION 2.1* WItH 

• 379SO0O THE FCLLOWTmG CHANGES: 
. .. . 3799000 

3800000 1) ALL cONTf^OL CARDS MUST BE SENT TOGETHER AS ONE MESSAGE, THIS 

• 3801000 MESSAGE CAN BE LUNGER THAN ONE LINE, SINCE THE RETURN AND LiNE-FEED 
3802000 KEYS ON THE TELETYPE DO NOT TRANSMIT ANYTHING. 

3803000 2) THE FIRST CONTROL CARD Is jHE ExECutE CARD, WHICH Is PRECEDED 

• 3804000 BY TVJD "?"-S. ALL QThER CONTROL CARDS ARE PRECEDED BY "i" 

3805000 RATHER THAN "?". THE USER CARD IS NQT USED, SINCE ThAT INFORMA" 
3806000 TION WAS GIVEN IN THE LOG-IN MESSAGE, 

• 3807000 3) THE FI1.F PROGRAM NEED NOT BE ASSIGNED* SINCE THE TELETYPE IS THE 
,... 3808000 INPUT DEVICE FOR THE COMPILER. 

3809000 

• 3810000 *CP 9 

3811000 SOME EXAMPLES OF EXLCUTE MESSAGES ARES 
3812000 

• 3813000 ??EXECUTe SNOtiOL/SNOBOL*- 



• ^ •• « 



m 

m 






m 
m 
m 



38 3.4000 
38 J 5000 
365.6000 
3817000 
3818000 
381^000 
3820000 
38^1000 
382^000 
38P3000 
33;^'4000 
38?b000 
38?6000 
33?7000 
38?8000 

382^000 
3830000 
38 31000 
36 3i^000 
3833000 
3834000 

3835000 
3836000 
383/^000 
3838000 
3639000 
3840000 
3841000 
3842000 
3843000 
3844000 
3845000 
3846000 
3847000 
38^18000 
3849000 
3350000 
3 8"5l000 
3852000 
3853000 
3854000 
3855000 

3856000 
3857000 

3858000 
3859000 

386"o6oO 
3861000 

386'<J000 
38(^3000 
3864000 
386500.0 
3866000 
386/000 
3868000 
3869000 
3870000 



??ExECUTE snobql/sno80l;phocess=s5; io=io; 

FILE CARO^BLEEK/GRUNK SERIAL*- 

??EXecUTE 3N080L/SN0B(.1L;C0RE = 19000;PR0CESS = 20;I0 = 30«- 
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WHEN The execute message is typed^ ThE mcp will respond in one of 

rwri ^AYS. TF TiiERE IS ROOM FOR THE PROGRAM* THE RESPONSE WILL BE? 
I :3NrjR[)L/SNnBUL = J 60 J <TlME> 

IF TheRe l^ '-ff^T ENOUGH ROOM, WHICH IS MucH MORE LIKeLYji THE RESPONSE 
WILL Be'oF the FORM! 

I sSnOBOL/SNOBOL^J SCHEDULED <TImE> 

THF USFR must then flHD SOMETHING £lSE TO OCCUPY HIS TIME UnTIl SPACE 
BECOMES AVAILABLE AND THE "BOJ" MESSAGE IS TYPED BY THE MCP. USERS ARE 
ADVISED TO BRING SOMETHING TO READ WHEN ATTEMPTING TO RUN DURING 
BUSY PARTS OF THE DAY, 

WHEN THE BOJ MESSAGE APPEARS* THE COMPILER IS RUNNING AND WAITING 
FOR UPijT. THE USEH CAN THt ORET I C ALL Y TYPE ANYTHING THAT IS VALID 
PROGRAM MATrRIAL EXCEPT FOR CONTINUATION CAHDS, IN PRACTICE* USERS 
ARE ADVISED TO FIRST GET THEIR PROGRAM IN A DISK FIi,E (THERE ARE 
SEVERAL EDITING PROGRAMS AROUND* AS WELL AS A PROGRAM TO COPY CARD 
DECKS TO DISK FIlESJ* AND NOT ATTEMPT TO TYPE THE PROGRAM ITSELF 
DIRECTLY TO THE COMPILER. 



• 
• 

• 
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WHEN A PrDQRm 
THEN REsP0Ni3 WiT 
THE ^EXT LINE. 
CARD IS TYPED* T 
AS IT COMPILES* 
WAY THE USER CAi>^ 
VERY SLOW^ HE CA 
HE WAITS FUH IT 

USUALLY/ THE 
THAT WILL c^USe 
MORE DISK FILES, 

as soon as the e 
Interpreter* and 

OF DOING 1/0 wit 
IF A mistake 

thf comp'Ilew, th 
"#«-", the compi 
can then be type 

USE THE TELFTYPr 
FOR ERASING MIST 



M "CARD" IS TYPED* THE COMPILER WILL COMPILE IT AND 
H A RETURN/LINE FEED* AND THE USER CAN THEN TYPE 
ONE EXCEPTION TO THIS IS THAT WHEN A -COMPILE CONTROL 
HE COMPILER TYPES OUT A NUMBER EVERY TEnTH INSTRUCTION 
AND AT THE END TYPES A MESSAGE SAYING IT IS DONE* THIS 

TELL HqW FAST THE COMPILER IS RUnnING* AnD IF IT IS 
N DO SOMETHING ELSE (LIKE GET A CUP OF COFFEE) WHILE 
TO FINISH. 

USE« WILL TYPE IN A SERIES OF SNOBOL CONTROL CARDS 
THE PROGRAM TO BE LOAqed OR COMPILED FRUM ONE OR 

AND THEN INITIATE EXECUTION By TyPING AN END CARD. 
ND CARD Is TYPED* THE COMPILER TRANSFERS TO THE 

THE PROGRAM IS RUnnInG, SEE SECTION 10.4 FOR mETHQOS 
H A TELETYPE, 

IS MADE AND DISCOVERED BEFqRE IT IS TRANSMITTED To 
E WHOLE THING CAN BE ERASED AND RETYPED BY TYPING 
LER WILL RESPOND WITH "TRY AGAIN"* AND THE CARD 
D OVER. THIS USUALLY WORKS BETTER THAN TRYING TO 
S RATHER AWKWARD (AND NOT ALWAYS SUCCESSFUL) METHODS 
AKE5, 
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SOME EXAMPLES UF INPUTS TO THE COMPILER ARK: 



m 

# 



J 






38/'1000 
3872000 
3873000 
387/iOOO 
3875000 
3876000 
33.7 70 00 
38/'8000 
3879000 
3880000 
3881000 
33B2000 
3863000 
3 B R ■a n 

3885000 
38 86000 
3887000 
3888000 
388.9000 
3890000 
3891000 

.389?000 
3893000 
3894000 
3895000 
3896000 
3897000 
3898000 
389 9000 
3900000 

3901000 
3902000 
3903000 
390i(O00 
3905000 
3906000 
3907000 
3908000 
3909000 

39100.00 
3911000 
3912000 
,3,9.1.3.0.00. 
3914000 
3915000 
3916000 
3917000 
3918000 

39190.00 
3920000 

3921000 
3922000 
3 92 3000 
3924000 
392S000 
3926000 
3927000 



-LIST*- 

-LOAD MRG/GRQUP<- 
-COMPILE SLIB/DIFF*- 
-LIMIT RULFS TO 5000*- 
END INIT«- 



-LTST4- 
-S.I..ZX .370*-. 
-COMPILE MARK/SINT<- 






• 



-LIST 5*- 
-COMPILE 

-COMPILE 

-DE8U6«- 

..END*- 



MARK/IfSiTl*- 
MA:?K/DIF3«- 



-LIST ?«. 

-COMPILE GE0/TRAJ3«- 
.-L.IB.RA,R..Y .GE0,/TRJ3«- 
END GO*' 



-LIST 1«. 

-COMPILE ML/TRY4- 

-OEBUG* 

INIT TRACES("N","J">"AL1"*"PN")<- 



# 

• 
• 



TRACEi:'(''HlNT"v"REF' 
END IMT*- 



) 



: CBEGIN)*- 



%SECTIO!N "irJDEX," 

«PAGE 1 

INDEX. 

THIS IS RATHER INCOMPLETE; USERS ARE CORDIALLY 
THEIR SUGGESTIONS A3 TO WHAT SHOULD BE ADDrO, 



• 



INVITED TO SUBMIT 



ARITHMETIC, ,.5. 4 
BAC.K....REFE,RENCING...6,3 
CONTROL CAR0S,,.2 
MCP,,.2,1 



MCP,,.2,1 

..FROM TELETVPE..,APP,D 

5N0P0L.. .2.2 
DEBUGGING AIDS. ..11 

JNTER.ACTIVE. . .11.2 

TRACtNG...ll ,1 
ENTRY POINTS 

FUNCTI0N3...2.2C-0EFINE)>9(D£FINL)*3,2,1 

PROGRAM. . ,3,2»3,0 
FAILURE, ,.8 



-• •■> 



4 "» «. 



» '•'» • 



• 



3928000 

3929000 

3930000 

3931000 

393?000 

39 3 3000 

393^000 

3935000 

3936000 

393/OCO 

393H00f^ 

3939000 

39'40000 

394 100 

39/12000 

39a3000,. 

394^(000 

3945000 

3946000 

3947000 

3948000 

3949000 

3956000 

3951000 

3952000 

3953000 

3954000 

3955000 

3'956b00 

3957000 
3958000 
3959000 
3960000 
3961000 
3962000 
3963000 
3964000 
3965000 
3966000 
3967000 
3968000 



OF-" 
OF 
OF 
OF 



FUMCT 
AR 
CA 
DF 

IN 



PATTERNS., ,6,6 

RULES,.. 4 

T/0.,.10m0.5MO.4,1 

FUNCTIONS 

I\iTRINSKS, . .9 

OEFINeO,..3.2 
lOMS 
IThMfTIC.. .5.4,3*9 

LLS ON... 5. 3 
FINED. ..3.2*5,3 

TRINSIC. .,9 
ANCHORC ),..6.4^9 

DEFINEC ),..9*2,2C-DEFIiNE)'3,2f 3.2.4 
TRACING. ..11,1 
INDIRECTION. . .5.1.3 

IN GO-TO PART... '''.4 

INPUT... SEE "I/O'' 

i/n...io 

FAILURE. .,10. 4, 1^8.1 

FILES. .,10, 1,10. 2, 10, 3 

TELETYPES... 30,4 
LABELS,. .7*3.0,3.1 (SFE AlSD "ENTRY POINTS") 

IN GO-TO PARTS, ..7.2 

CC^/PUTE0...7.4 

RESERVED, ,,7,3 
OUTPUT... SEE "I/O" 
PATTERNS*. ,6 

ANCHO.REn, ..6,4 
FAILURE. ..8, I, 4. 3. 4. 5, 6. 6 
I/O WITHIN, ,.10.5 
MATCHING.. .4,3.4.5 
STRING VARIABLES. ..6.2*6.5 
ARBITRARY. .,6,2,1*6,6 
ASSIGNMENT TO. ..6.5,6.6 
BALANCED. , ,6. 2. 2*6,6 
FIXED-LE^JGTH...6.2.3 
NAMfTS Of. ..6.2 
OUTPUT ASSOCIATED w I TH . , , 6 , 5 , 10 . 5 
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LABEL 00OO0OO00LPAPRNTOOl76l7 7?USER=SP0 



; EXECUTE COPY 



/SPO 



COPY /SPO 






